اذهب الي المحتوي
أوفيسنا

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


الردود الموصى بها

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

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

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

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

===

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

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

وهذا هو الكود

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

 

  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

تحياتي

  • Like 1
رابط هذا التعليق
شارك

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

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

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

هنا تعديل ..

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

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

 

رابط هذا التعليق
شارك

16 دقائق مضت, سعيد صواب said:

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

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

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

هنا تعديل ..

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

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

 

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

 

رابط هذا التعليق
شارك

  • 3 weeks later...

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

نعم بحثت كثيرا ووجدت مايمسى بال 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"

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

 

 

 

تم تعديل بواسطه سعيد صواب
  • Like 1
رابط هذا التعليق
شارك

  • 4 years later...

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • اضف...

Important Information