Mail aus Datei schicken. Wie an Cc: schicken?

Question

Hallo,
über folgenden Code versende ich eine Mail mit vorgegeben Empfängern.
In der Datei stehen in den Zellen C108:C116 verschiedene Empfänger. In C10 steht der Betreff.
Wie kann ich, ggf. über eine weiter Liste Empfänger als CC hinzufügen?

Private Sub CommandButton1_Click()
Application.Dialogs(xlDialogSendMail).Show _
arg1:=ActiveWorkbook.ActiveSheet.Range("c108:c116"), _
arg2:="Meldung" & (" / ") & ActiveWorkbook.ActiveSheet.Range("c10")
End Sub

Vielen Dank und Grüße
Thomas

Answer 1

Hallo Thomas,
die .Show-Methode von xlSendMail kennt drei Argumente:
recipients, subject, return_receipt (Empfangsbestätigung)

Für Empfänger als CC gibt es einen kleinen Trick der Dir vielleicht weiter helfen kann. Die Zellen der Empfänger (CC) müssen im Makro genau angegeben werden, und es sollte keine leer sein.

Private Sub CommandButton1_Click()
SendKeys ("{TAB}") & Range("A1") & "; " & Range("A2") & "; " & Range("A3") & "; " & Range("A4")
Application.Dialogs(xlDialogSendMail).Show _
arg1:=ActiveWorkbook.ActiveSheet.Range("c108:c116"), _
arg2:="Meldung" & (" / ") & ActiveWorkbook.ActiveSheet.Range("c10")
End Sub

Gruß
fedjo

Answer 2

Hallo Fedjo,

vielen Dank. Der Ansatz ist gut und geht in die richtige Richtung. Leider funktioniert der Code nicht, auch nicht, wenn die Email direkt in den Code eintrage.

SendKeys ("{TAB}") & "Email@x.de"
Application.Dialogs(xlDialogSendMail).Show _
arg1:=ActiveWorkbook.ActiveSheet.Range("u115:u138"), _
arg2:="Meldung " & ActiveWorkbook.ActiveSheet.Range("g10") & ...

cc: bleibt leer. Müsste der Sendkey Befehl nicht bei arg1 eingebaut werden? Ich bekomme es aber nicht hin...


VG Thomas

Answer 3

Hallo Thomas,
vielleicht hilft dir ja ein Muster weiter.

Gruß
fedjo