Excel Marko – Serienmails

Hier ein kleines Excel Marko um aus einer Mail – Adressliste direkt aus Excel über Outlook Serienmails zu verschicken.

Das Beispiel ist nur für 5 Mailadressen geschrieben. Kann aber beliebig erweitert werden.

Sub Excel_Mail_Outlook()
Dim OutApp As Object, Mail As Object
Dim i As Integer
Dim Nachricht

For i = 1 To 5  ‚Anzahl der Mailadressen in Schreife einbauen
‚Variablen neu deklarieren
Set OutApp = CreateObject(„Outlook.Application“)
Set Nachricht = OutApp.CreateItem(0)

With Nachricht
.To = Cells(i, 1)            ‚Mail-Adresse
.Subject = Cells(1, 2)   ‚Betreff
.Body = Cells(1, 3) ‚Sendetext
.Display
SendKeys „%s“, True
End With

‚Variablen zurücksetzen
Set OutApp = Nothing
Set Nachricht = Nothing
Application.Wait (Now + TimeValue(„0:00:05“))
Next i
End Sub

Schreibe einen Kommentar

Deine E-Mail-Adresse wird nicht veröffentlicht. Erforderliche Felder sind mit * markiert.

*