VBOffice

Email-Kopie an die eigene Adresse senden

Dieses Script sendet jede Email automatisch an eine weitere Adresse.

Zuletzt geändert: 17.11.2009 | Aufrufe: 25.353  | #77
◀ Vorheriges Beispiel Nächstes Beispiel ▶
Reporter Reporter
Mit dem Reporter erstellen Sie Berichte für Ihre Outlook Daten. Mit wenigen Klicks werden Werte aus Aufgaben, Terminen und dem Journal summiert.

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.


tip  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
OLKeeper OLKeeper
Der OLKeeper verhindert zuverlässig, dass Sie Microsoft Outlook unbeabsichtigt schließen und so etwa wichtige Emails verpassen würden.
email  Senden Sie eine Nachricht