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: 480.544  | #77
◀ Vorheriges Beispiel Nächstes Beispiel ▶
SAM SAM
Legen Sie fest, mit welcher "Identität" Ihre Emails beim Empfänger erscheinen sollen. Mit SAM bestimmen Sie den Absender und Speicherort für Emails anhand von Regeln.

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