Office: (Office 365) Outlook- Emials autom. in BCC an mich senden.

Hallo liebe Forum-Mitglieder,

ich hatte in älteren Outlook Versionen immer folgenden Code verwendet:

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim objMe As Recipient
Set objMe = Item.Recipients.Add("name@domain.com")
objMe.Type = olBCC
objMe.Resolve
Set objMe = Nothing
End Sub
In der neusten Outlook Version 365 funktioniert dieser Code leider nicht.
Ziel ist, dass alle ausgehenden Emails in BCC an mich zurückgeschickt werden.
Wäre super, wenn der ein oder andere mir helfen kann.
Viele Grüße