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

This entry was posted on Dienstag, Dezember 2nd, 2008 at 10:25 and is filed under Makro's. You can follow any responses to this entry through the RSS 2.0 feed. You can leave a response, or trackback from your own site.