ich versuche mit Sendmail mehrere Empfänger anzugeben.
Da ein einfaches Aneinanderreihen von Emailempfängern nicht geht, wollte ich, wie auch im Beitrag "www.herber.de/forum/archiv/252to256/t252756.htm"
beschrieben, folgendes eingeben:
"Emailadresse1" & ";" & "Emailadresse2"
Mein Code dazu sieht so aus:
Empfaenger = Workbooks(Dienstplanmappe).Sheets("Daten").Range("N31")
Workbooks(NeueMappe.Name).SendMail Recipients:=Empfaenger, Subject:="Dienstplan vom " & Blattname & " von der Gruppe " & Gruppenname
Wie gesagt, die Variable Empfaenger enthält die zusammengesetzten Emailadressen nach obigem Muster.
Gesendet wird über Outlook2003, ein Ansprechen direkt von Outlook mittels VBA will ich aber nicht, da andere Kollegen auch diese Mappe verwenden und andere Emailprogramme installiert haben.
Leider funktioniert es nicht und es kommt folgende Fehlermeldung:
Laufzeitfehler "1004"
Unbekannter Empfänger in der Empfängerliste. Überprüfen Sie die Namen und versuchen Sie es noch einmal.
Trage ich nur eine Emailadresse ein, so klappt es problemlos.
Was mich zusätzlich wundert:
Verschicke ich über xlDialogSendMail mit folgendem Code:
i = Application.Dialogs(xlDialogSendMail).Show(Empfaenger, "Dienstplan vom " & Blattname & " von der Gruppe " & Gruppenname)
werden in Outlook die Emailadressen nicht zusammengefasst, stehen noch mit Anführungsstrichen und & ";" so drin. Das Versenden funktioniert dann auch nicht.
Was muss ich tun?
T.Tauber