asterix2
Goto Top

Aus Excel201 E-mail an mehrere Empfänger senden.

Hallo,
ich kann mit dem unten folgendem Code eine E-mail an einen Empfänger senden. Nun möchte ich aber die E-Mail an mehrere Empfänger senden, wie muß ich den Code erweitern das dies klappt?
Gruß Asterix2

ActiveWorkbook.SendMail Recipients:=Range("A83"), Subject:="Mail" & "_" & strFile

Content-Key: 196562

Url: https://administrator.de/contentid/196562

Ausgedruckt am: 28.03.2024 um 13:03 Uhr

Mitglied: 76109
76109 07.01.2013 aktualisiert um 15:46:11 Uhr
Goto Top
Hallo Asterix2!

In etwa so:
Dim arrTo As Variant
    
arrTo = Array(Range("A1").Value, Range("A2").Value)  

ActiveWorkbook.SendMail Recipients:=arrTo, Subject:="Mail" & "_" & strFile  

Gruß Dieter
Mitglied: Asterix2
Asterix2 07.01.2013 um 16:17:06 Uhr
Goto Top
Hallo didi1954,
wow, so schnell hatte ich noch nie eine Antwort. Du hast den Nagel aber so was von auf den Kopf getroffen.
Herzlichen Dank für deine Super schnelle Hilfe.
Gruß Asterix2