code:
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
' Dieses Makro verendet automatisch eine Blindkopie (BCC)
Dim objBCC As Recipient
Set objBCC = Item.Recipients.Add("1@example.com")
' see www.Outlookcode.com/d/code/autobcc.htm#S2
' siehe www.Joern.De/AutoBcc.htm
objBCC.Type = olBCC
objBCC.Resolve
Set objBCC = Item.Recipients.Add("1@example.com")
objBCC.Type = olBCC
objBCC.Resolve
Set objBCC = Nothing
End Sub
Nun würde ich aber gerne nur an den Absenderaccount eine Blindkopie versenden, habe jedoch kein entsprechendes Feld gefunden. SenderEmailAddress ist zu diesem Zeitpunkt noch unbekannt.
