Serienmail aus Excel hier Prog von RAMSES
23.01.2006 09:16:39
RAMSES
ich habe von der RAMSES Seite einen tollen Code gefunden, der aus einer Excel-Tabelle eine Serienmail fabriziert. Funzt auch super.
Wie kann ich aber den Sendtext erweitern, wenn ich Text nicht nur in Spalte C (siehe .Body = Cells(i, 3) 'Sendetext) sondern auch weiteren Text in den Spalten D, E, F und G an den Adressaten schreiben möchte. Hintergrund soll sein, das mein Text in der Mail schöner formatiert sein soll.
Sub Excel_Serienmail_via_Outlook_Senden()
Dim OutApp As Object, Mail As Object
Dim i As Integer
Dim Nachricht
For i = 1 To 10
'Variablen müssen bei jeder Schleife neu initalisiert werden
Set OutApp = CreateObject("Outlook.Application")
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.To = Cells(i, 1)'Adresse
.Subject = Cells(i, 2) 'Betreffzeile
.Body = Cells(i, 3) 'Sendetext
'Hier wird die Mail gleich in den Postausgang gelegt
'und die Sicherheitsabfrage muss jedesmall bestätigt werden
'.Send
'Hier wird die Mail "angezeigt"
'aber gleich versendet,... OHNE Sicherheitsabrage
.Display
SendKeys "%s",True
End With
'Variablen zurücksetzen sonst geht es nicht
Set OutApp = Nothing 'CreateObject("Outlook.Application")
Set Nachricht = Nothing 'OutApp.CreateItem(0)
Application.Wait (Now + TimeValue("0:00:05"))
Next i
End Sub
Wer kann mir helfen? Vielleicht liest Du, RAMSES, diese Frage sogar.
Gruß
Thomas