MS Outlook: Auto BCC (VB code)

Στο Outlook πατήστε Alt+F11 για να ανοιξει ο editor.
Μετα καντε copy/paste τον παρακατω κωδικα.
Ολα τα εξερχομενα mail σας θα πηγαινουν και στον παραλήπτη που δηλωνετε στον κωδικα


Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim objMe As Recipient
Set objMe = Item.Recipients.Add("yourmail@domain.com")
objMe.Type = olBCC
objMe.Resolve
Set objMe = Nothing
End Sub