Hallo,
Mit folgendem Code versende ich eMails:
gn_email_adresse = "abc@t-online.de"
Dim OutApp As Object, Mail As Object
Dim i As Integer
Dim Nachricht
Set OutApp = CreateObject("Outlook.Application")
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.To = gn_email_adresse 'Adresse
.Subject = gn_email_betreff 'Betreffzeile
.Body = gn_email_betreff 'Sendetext
.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)
Nun meine Frage: Ich möchte die eMail gerne an mehrere Empfänger gleichzeitig senden; ich bin jedoch bei mehrfacher Hinterlegung in meine Variable gn_email_adresse á la "abc@t-online.de; def@t-online.de" gescheitert; weiß jemand Rat? (das Semikolon habe ich auch schon mit Komma ausgetauscht; ebenfalls negativ). Die Variable gn_email_adresse wird im original aus einer Excelzelle gefüllt.
Danke für Hilfe!
Heinz