Wird eine wichtige E-Mail versendet, kann je nach Bedarf eine Kopie davon an eine beliebige E-Mail-Adresse via CC oder BCC zur Sicherheit geschickt werden. Diesen Vorgang können wir mit einem Makro automatisieren, damit dies nicht immer wieder aufs Neue eingerichtet werden muss und damit es unsichtbar geschieht. Dieses Vorhaben lässt sich mit folgendem VBA-Code realisieren:
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim objMe As Recipient
Set objMe = Item.Recipients.Add("addresse@domain.com")
objMe.Type = olBCC
objMe.Resolve
Set objMe = Nothing
End Sub
Die Zeile: Set objMe = Item.Recipients.Add("addresse@domain.com") wird hierfür entsprechend angepasst. Die in Klammern stehende Adresse wird durch eine beliebige ersetzt.
In Outlook muss der o.g. Code eingefügt werden. Um das zu tun, wird in Outlook mit der Tastenkombination ALT+F11 der VBA-Editor gestartet.
Hinweis: Soll die Mail per CC statt BCC verschickt werden, gilt es im Code in der Zeile:
objMe.Type = olBCC eine kleine Änderung vorzunehmen: „olBCC“ verändern auf „olCC“
Auf der linken Seite des Dialogfensters befindet sich der Projekt-Explorer, hier ist Projekt1 zu sehen. Ein Klick auf das Symbol mit dem + Zeichen, dann erneut auf Microsoft Outlook Objekte und abschließend noch auf ThisOutlookSession doppelt geklickt, öffnet das Fenster, in das der Code eingefügt wird.
Nachdem der Code eingefügt wurde, muss nur noch gespeichert werden, wahlweise Strg + S oder per Symbol in der Symbolleiste.
Fertig, jede ab jetzt versendete E-Mail wird nun automatisch wahlweise über CC oder BCC an den gewünschten Empfänger geschickt. Einfach und sehr effektiv.