تأخر الرسائل عند استخدام الأكسس لإرسال ايميل بإستخدام اوت لوك

[سعيد صواب]

السلام عليكم ورحمة الله وبركاته

استخدم هذا الكود لإرسال ايميل عن طريق الأكسس

احيان ترسل الرسائل في حينها واحيان تأخذ وقت طويل اكثر من الساعة 

لا أعلم هل المشكلة في اعدادات الاوت لوك .. ام ان هناك مشكلة في الكود

===

وهل هناك طريقة للإرسال بدون استخدام اوت لوك ... وجدت مواضيع في قوقل ولكنها لم تنجح .

اتمنى من له تجربه حول الموضوع مشاركتي الموضوع ...  وشكرا مقدما

وهذا هو الكود

Option Compare Database
Option Explicit


Private Sub ÃãÑ15_Click()


  Dim MyDB As Database
  Dim MyRS As Recordset
  Dim objOutlook As Outlook.Application
  Dim objOutlookMsg As Outlook.MailItem
  Dim objOutlookRecip As Outlook.Recipient

  Dim TheAddress As String

  Set MyDB = CurrentDb
  Set MyRS = MyDB.OpenRecordset("tbl11")
  MyRS.MoveFirst

 
  Set objOutlook = CreateObject("Outlook.Application")
  
  Do Until MyRS.EOF
  
  Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
  TheAddress = MyRS![aemail]
     With objOutlookMsg
        Set objOutlookRecip = .Recipients.Add(TheAddress)
        objOutlookRecip.Type = olTo
       .subject = Forms!sentall!txtSubject
        .Body = Forms!sentall!txtBody

        For Each objOutlookRecip In .Recipients
           objOutlookRecip.Resolve
           If Not objOutlookRecip.Resolve Then
             objOutlookMsg.Display
           End If
        Next
        .Send
      End With
      MyRS.MoveNext
   Loop
   Set objOutlookMsg = Nothing
   Set objOutlook = Nothing
End Sub

 

[محمد سلامة]

السلام عليكم اخي سعيد

كان في السابق يمكن ارسال رسائل من الاكسس عن طريق ال Gmail ولكن قامت شركة جوجل باغلاق الثغرة التي يقوم المبرمجين باستخدامها. 

اما الاوتلوك في الحقيقة لم استخدمه ومش عارف ليه انا مبحبوش.. هههههه

ولكن سوف ابحث لك عن برنامج هنا في المنتدي خاص بالأستاذ الكبير ابو يوسف وارد لك خبر

تحياتي

[سعيد صواب]

شكرا لمشاركتك اخوي محمد 

وجزاك الله كل خير

======================

هنا تعديل ..

الرسائل بعد تنفيذ الأمر تذهب الى علبة الصادر في الاوت لوك ..

معنى هذا والله اعلم ان المشكلة في الاوت لوك ...
 

 

[محمد سلامة]

  في 26‏/3‏/2016 at 16:57, سعيد صواب said:

شكرا لمشاركتك اخوي محمد 

وجزاك الله كل خير

======================

هنا تعديل ..

الرسائل بعد تنفيذ الأمر تذهب الى علبة الصادر في الاوت لوك ..

معنى هذا والله اعلم ان المشكلة في الاوت لوك ...
 

 

Expand  

اعتقد ان المشكلة في الاوت لوك

 

[jjafferr]

السلام عليكم 

 

السيد جمال شرح طريقة ارسال رسائل عن طريق Gmail في الرابط التالي:

 

جعفر

[سعيد صواب]

جزاك الله كل خير استاذ جعفر 

نعم بحثت كثيرا ووجدت مايمسى بال CDO لإرسال الإيميل دون الحاجة للاوت لوك .

Collaboration Data Objects

وهذا هو الكود بإعدادات الهوتميل hotmail

Set emailObj = CreateObject("CDO.Message")
'بريد المرسل
emailObj.From = "xxx@hotmail.com"
' العناوين المراد الإرسال لها
emailObj.To = "xxxx@gmail.com" & ";" & "xxxx@yahoo.com" & ";" & "xxxx@hotmail.com"
emailObj.Subject = "عنوان الرسالة"
emailObj.TextBody = "نص الرسالة "
'emailObj.AddAttachment "c:\windows\win.ini"

Set emailConfig = emailObj.Configuration

emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.live.com"
'Exclude the following line
'emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "xxx@hotmail.com"
' هنا تضع بريد الهوتميل وكلمة المرور
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "كلمة المرور هنا"
emailConfig.Fields.Update

emailObj.Send

If Err.Number = 0 Then MsgBox "Done"

وشكرا مرة اخرى على المرور.

 

 

 

تم تعديل أبريل 14, 2016 بواسطه سعيد صواب

[alhakeem1977]

السلام عليكم ورحمة الله وبركاته

كيف يمكنني استخدام الكود الذي طرحته في هذه المقالة؟