Email Sender VBA Outlook Email Sender VBA Outlook er en e-mail program, som sender e-mails ved at kommunikere med Microsoft Outlook.
Forklaring Email Sender VBA Outlook er en VBA Excel program, der kommunikerer med Microsoft Outlook. Programmet sender e-mail skabeloner fra en foruddefineret sted på din computer, den fil er behov for en. Oft-fil. Der er også en funktion til at blokere visse email-adresser. Programmet kræver reference "Microsoft Outlook XX.X Object Library" for at være aktiveret.
Hele VBA Excel program kan downloades nederst på denne side, god fornøjelse!
Kode 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
Om = Range ("D14"). Offset (Rowa, 0) .Value
FileName = Range ("D14"). Offset (Rowa, 0) .Value
Call WaitTimeProgram (WaitTimeSecondsBetweenMail)
Om = Range ("E14"). Offset (Rowa, 0) .Value
Call MatchAdress With NoMailList (ToAdress, Funnen, NoMailList)
If Funnen = False Then
Call EmailSenderProgram (ToAdress, FileName, Emne PlaceToStoreEmailTemplate)
End If
Rowa = Rowa + 1
Wend
End Sub
Sub EmailSenderProgram (ToAdress, FileName, Emne 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 = Om
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 MatchAdress With NoMailList (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 = Anden (Now()) + sek
waitTime = TimeSerial (newHour, newMinute, newSecond)
Application.Wait waitTime
End Sub
Download excel filen!Email_Sender_VBA_Outlook.xls |
