Email senden -code anpassen
14.01.2004 09:42:52
dirk
habe hier eine fertigen Code von ramses! -sh.unten-
den ich gern ein wenig verändert hätte!
Änderungen:
1. Immer gleicher Empfänger
2. Immer gleicher Betreff
3. Immmer gleicher Text
*kann man doch dann gleich in den Vba code nehmen?
ich hoffe es macht nicht so viel arbeiten!
danke an alle vor allen an Ramses für die tollen Bsp.
zum Thema Outlook!
Gruss
dirk
Ramses Code:
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 zuerst angezeigt
'.Display
'Hier wird die Mail gleich in den Postausgang gelegt
.Send
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
Anzeige