السلام عليكم ورحمة الله وبركاته
استخدم هذا الكود لإرسال ايميل عن طريق الأكسس
احيان ترسل الرسائل في حينها واحيان تأخذ وقت طويل اكثر من الساعة
لا أعلم هل المشكلة في اعدادات الاوت لوك .. ام ان هناك مشكلة في الكود
===
وهل هناك طريقة للإرسال بدون استخدام اوت لوك ... وجدت مواضيع في قوقل ولكنها لم تنجح .
اتمنى من له تجربه حول الموضوع مشاركتي الموضوع ... وشكرا مقدما
وهذا هو الكود
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