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