automatische e-mail mit cc
09.02.2005 14:24:34
uwe
wie kann man einen e-mail-Empfänger als CC per makro erreichen.
Was ich bei der Recherche gefunden habe, hat leider nicht funktioniert:
ActiveWorkbook.HasRoutingSlip = True
With ActiveWorkbook.RoutingSlip
.Recipients = Array("Name_1, Vorname_1","Name_2, Vorname_2")
' Bis hier geht's ...
'
' Das folgende wird leider nicht ausgeführt:
.CC = Array("Name_3, Vorname_3")
'
.Subject = "Ergebnis: Kunde; Produkt"
.Message = "Zur Info! Testergebnis"
.Delivery = xlAllAtOnce
.ReturnWhenDone = False
.TrackStatus = True
End With
ActiveWorkbook.Route
Vielen Dank in voraus.
Uwe