Hallo,
mit folgender Routine möchte ich mehrere Empfänger erreichen; erhalte jedoch immer die Nachricht: Outlook kennt mindestens einen Namen nicht. Ich nehme an das Trennzeichen stimmt nicht; aber auch mit Semikolon statt Komma funzt es nicht :(
Wer weiß Rat?
gn_email_adresse = "a@t-online.de, b@t-online.de" ' sind natürlich realexistierende Adressen
Dim olApp As Object
Set olApp = CreateObject("Outlook.Application")
With olApp.CreateItem(0) ' Neue Mail erstellen
.Recipients.Add gn_email_adresse
.Subject = gn_email_betreff ' Betreff setzen
.Body = gn_email_betreff ' Text im Body
.ReadReceiptRequested = True ' Rückmeldung senden
'.Attachments.Add "C:\test1.xls"
'.Attachments.Add "C:\test2.xls"
'.Display ' Mail anzeigen
.Send ' Mail senden
End With
Set olApp = Nothing