التوقعات البريد الالكتروني المرسل VBA البريد الالكتروني المرسل VBA النظرة هو برنامج البريد الإلكتروني التي ترسل رسائل البريد الإلكتروني من خلال الاتصال مع مايكروسوفت أوتلوك.
تفسير البريد الالكتروني المرسل VBA النظرة هو برنامج اكسل VBA الذي يتصل مع مايكروسوفت أوتلوك. البرنامج يرسل البريد الإلكتروني قوالب من مكان محدد مسبقا على الكمبيوتر ، الملف يجب أن يكون. كثيرا ما الملف. وهناك أيضا وظيفة من أجل الحيلولة دون عناوين البريد الإلكتروني معينة. يتطلب البرنامج المرجع "مايكروسوفت توقعات xx.x مكتبة كائنات" يجب تمكين. في الصيغة الجديدة للمكتب أنه من السهل لمنع التواصل بين التفوق والتوقعات تأكد لتمكين الاتصالات قبل محاولة رمز وإلا فإنه لن ينجح.
كامل برنامج اكسل VBA يتوفر للتحميل في أسفل هذه الصفحة ، تمتع!
رمز Sub Email_Sender_VBA_Microsoft_Outlook()
Dim NoMailList(1500)
Call LoadNoMailList(NoMailList)
WaitTimeSecondsBetweenMail = Range("c4").Value
PlaceToStoreEmailTemplate = Range("c5").Value
RowA = 0
While Range("A14").Offset(RowA, 0).Value <> tom
ToAdress = Range("c14").Offset(RowA, 0).Value
Subject = Range("d14").Offset(RowA, 0).Value
FileName = Range("D14").Offset(RowA, 0).Value
Call WaitTimeProgram(WaitTimeSecondsBetweenMail)
Subject = Range("e14").Offset(RowA, 0).Value
Call MatchAdressWithNoMailList(ToAdress, Funnen, NoMailList)
If Funnen = False Then
Call EmailSenderProgram(ToAdress, FileName, Subject, PlaceToStoreEmailTemplate)
End If
RowA = RowA + 1
Wend
End Sub
Sub EmailSenderProgram(ToAdress, FileName, Subject, PlaceToStoreEmailTemplate)
Dim VBAOutlookEmailSend As Object, vItem As Object, vStr As String
Set VBAOutlookEmailSend = CreateObject("Outlook.Application")
Dim temp2 As String
temp2 = FileName
Set vItem = VBAOutlookEmailSend.CreateItemFromTemplate(PlaceToStoreEmailTemplate + temp2 + ".oft")
vItem.Subject = Subject
Dim ToContact As Outlook.Recipient
Set ToContact = vItem.Recipients.Add(ToAdress)
vItem.ReadReceiptRequested = False
vItem.Send
Set vItem = Nothing
Set VBAOutlookEmailSend = Nothing
End Sub
Public Sub LoadNoMailList(NoMailList)
rad = 0
While Range("g14").Offset(rad, 0).Value <> tom
NoMailList(rad + 1) = Range("g14").Offset(rad, 0).Value
rad = rad + 1
Wend
End Sub
Public Sub MatchAdressWithNoMailList(ToAdress, Funnen, NoMailList)
Funnen = False
plats = 1
While NoMailList(plats) <> tom
komp = InStr(ToAdress, NoMailList(plats))
If komp <> 0 Then Funnen = True
plats = plats + 1
Wend
End Sub
Public Sub WaitTimeProgram(sek)
newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + sek
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime
End Sub
تنزيل ملف اكسل!Email_Sender_VBA_Outlook.xls |
