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
  • 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

  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