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: 26.402  | #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
ReplyAll ReplyAll
Mit diesem Plugin erhalten Sie in verschiedenen Situationen eine Warnung, bevor Sie auf eine Email versehentlich allen anderen Empfängern antworten.
email  Senden Sie eine Nachricht