Outlook - BCC automatisch füllen

[thomson1308]

Hi,

ich möchte beim erstellen einer Mail das BCC Feld automatisch mit XXX füllen lassen. (verhindert das versehentliche versenden von Mails)

Ich habe leider nur die Idee über ein Makro das ich mir Im mneü per Button starten kann.

Ich hätte das jedoch gerne automatisiert...kann jemand helfen?

LG un Danke

Public Sub AddBCC()
Dim oMail As Outlook.MailItem
Set oMail = Application.ActiveInspector.CurrentItem
oMail.BCC = "XXX"
End Sub