电子邮件发件人的VBA展望电子邮件发件人的VBA观是通过发送电子邮件程序，与Microsoft Outlook电子邮件沟通。
解释电子邮件发件人的VBA Outlook是一个VBA Excel程序与Microsoft Outlook中。该方案发送电子邮件从一个预先确定的地点在你的电脑模板，该文件需要一个。再三文件。还有一个函数阻止某些电邮地址。该计划要求参考“Microsoft Outlook中XX.X对象库”将启用。
整个VBA Excel程序可用于在本页面底部，下载欣赏！
码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
下载Excel文件！Email_Sender_VBA_Outlook.xls |
