Automatisches BCC in Outlook

Nach Umzug auf einen neuen Rechner und Einbau einer Crucial M4 128GB SSD, musste ich das alte Office 2007 neu installieren (kopieren hat nicht funktioniert. Ich konnte zwar mit Outlook Mails empfangen und Testnachrichten bei der Kontoeinrichtung verschicken, jedoch keine echten Mails. Angeblich nicht genug Speicher bei 8GB…).

Dabei ist mir auch mein kleines Makro wieder eingefallen, welches automatisch den Absender als Bcc hinzufügt. So geht’s:

1. Als erstes braucht man ein eigenes digitales Zertifikat für VBA-Projekte. Dieses erstellt man durch Aufrufen des Programms “Digitales Zertifikat für VBA-Projekte” (unter Start → “Microsoft Office” → “Microsoft Office Tools”).
2. Anschließend in Outlook “Extras” → “Makro” → “Visual Basic-Editor” (oder ALt+F11) öffnen.
3. Unter dem geöffneten Projekt sollten jetzt die Punkte “Microsoft Office Outlook” → “ThisOutlookSession” auftauchen (ggfs. anklicken).
4. Folgenden Code einfügen:
   

   Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
   If Item.Recipients.Item(Item.SendUsingAccount.SmtpAddress) Is Nothing Then
       Dim prompt As String
       prompt = Item.SendUsingAccount.SmtpAddress & " als Bcc hinzufügen?"
       Select Case MsgBox(prompt, vbYesNoCancel + vbQuestion, "BCC")
           Case vbYes
               Dim objMe As Recipient
               Set objMe = Item.Recipients.add(Item.SendUsingAccount.SmtpAddress)
               objMe.Type = olBCC
               objMe.Resolve
               Set objMe = Nothing
           Case vbNo
               ' Do nothing
           Case vbCancel
               Cancel = True
       End Select
   End If
   End Sub
   

5. Noch im Editor unter “Extras” → “Digitale Signatur” aufrufen und über “Wählen” das oben erstellte Zertifikat auswählen.
6. Abspeichern.
7. Beim nächsten Start von Outlook “Allen Dokumenten von diesem Herausgeber vertrauen”.
8. Steht die Absendeadresse nicht schon in den Empfängern, kommt ab jetzt beim Versenden eine Abfrage, ob die Absenderadresse als Bcc hinzugefügt werden soll.