Email-Kopie an die eigene Adresse senden

Dieses Beispiel sendet eine Kopie jeder ausgehenden E-Mail an eine festgelegte Adresse. Die Adresse wird als BCC hinzugefügt, so dass der Empfänger der E-Mail das nicht sehen kann.

  So fügen Sie Makros in Outlook ein

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
  Dim R As Outlook.Recipient
  Dim Address$

  Address = "abc@domain.com"

  Set R = Item.Recipients.Add(Address)
  R.Type = olBCC
  R.Resolve
End Sub