docs:microsoft_office:outlook:auto_bcc [hartungdesign.net wiki]

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.
====== Auto BCC ======
This is to have Outlook automatically BCC you or the person of your choice on all emails you send.
  * http://www.outlookcode.com/article.aspx?id=72
  * either self sign a certificate of your own or change the trust center security settings
    * (recommended) to self sign a certificate, see http://www.howto-outlook.com/howto/selfcert.htm
      * on windows 7 mine was located at C:\Program Files (x86)\Microsoft Office\Office15\SELFCERT.EXE
    * to change trust center security settings - open outlook, go to File --> Options --> Trust Center --> Trust Center Settings --> Macro Settings, click Notifications for all macros; restart outlook
  * press Alt-F11
  * open Project1 --> Microsoft Outlook Objects --> ThisOutlookSession, then enter this code<code vb>
Private Sub Application_ItemSend(ByVal Item As Object, _
                                 Cancel As Boolean)
    Dim objRecip As Recipient
    Dim strMsg As String
    Dim res As Integer
    Dim strBcc As String
    On Error Resume Next

    ' #### USER OPTIONS ####
    ' address for Bcc -- must be SMTP address or resolvable
    ' to a name in the address book
    strBcc = "user@example.com"

    Set objRecip = Item.Recipients.Add(strBcc)
    objRecip.Type = olBCC
    If Not objRecip.Resolve Then
        strMsg = "Could not resolve the Bcc recipient. " & _
                 "Do you want still to send the message?"
        res = MsgBox(strMsg, vbYesNo + vbDefaultButton1, _
                "Could Not Resolve Bcc Recipient")
        If res = vbNo Then
            Cancel = True
        End If
    End If

    Set objRecip = Nothing
End Sub
</code>
  * change the email address to your own and save
  * close and re-open outlook, click to trust all