einer der recipient ist und der rest die Mail als CC bekommt?
Sub MakroSendmail()
Dim Mldg, Stil, Titel, Ktxt, Antwort
Mldg = "Wollen Sie das aktive Workbook wirklich an den Verteiler senden?"
Stil = vbYesNo + vbQuestion + vbDefaultButton2
Titel = "Mailversand"
Antwort = MsgBox(Mldg, Stil, Titel)
If Antwort = vbYes Then
ActiveWorkbook.SendMail "xxx.xxx@xx.de", "Planung", True
ActiveWorkbook.SendMail "xxx.xxx@xxx.de", "Planung", True
ActiveWorkbook.SendMail "xxx.xxx@xx.de", "Planung", True
ActiveWorkbook.SendMail "xxx.xxx@xx.de", "Planung", True
ActiveWorkbook.SendMail "xxx.xxx@xx.de", "Planung", True
ActiveWorkbook.SendMail "xx.xxx@xxx.de", "Planung", True
ActiveWorkbook.SendMail "x.x@xx.de", "Planung", True
Else
End If
End Sub
So habe ich es schon probiert:
ActiveWorkbook.Sendmail "xxx@xxx.xx, xxx@xxxx,xx" funktioniert aber nicht...
Danke + Gruß
Thorsten