asterix2
Jan 07, 2013
view2936
view2
0
Goto Top

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

GermansolvedQuestionMicrosoft OfficeMicrosoft

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
comment-contentCommentShareShare
Share on Facebook Share on Twitter Share on Reddit Share on Linkedin

Content-Key: 196562

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

Printed on: April 27, 2024 at 23:04 o'clock

2 Comments
Latest comment
Goto Top
Mitglied: 76109
76109 Jan 07, 2013 updated at 14:46:11 (UTC)
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
Member: Asterix2
Asterix2 Jan 07, 2013 at 15:17:06 (UTC)
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
GermansolvedQuestionMicrosoft OfficeMicrosoft
Hotly discussed
DaniEnd of availability for classic Teams clientDani