This guide will show you how to automatically BCC (blind carbon copy) to an email address all the email that you send. This means that every email that you send using Outlook will also get copied to an email address of your choosing without the persons in the To or CC boxes ever noticing this. Whether you need to archive emails or you want to track an email address this method is guaranteed to work. I have personally tried this with Outlook 2003, Outlook 2007 and Outlook 2010 and it worked without problems. In order to achieve this you should perform the following steps:
- Locate the Digital Certificates for VBA Projects wizzard. You can reach it by going to the Start menu – Programs – Microsoft Office – Microsoft Office Tools.
- Type a name for your certificate and hit Save. Close the window.
- Open Microsoft Outlook.
- Press Alt-F11 to open the Visual Basic editor. You can alternately go to the Tools menu, then press Macro.
- In the window that has just opened navigate to ThisOutlookSession and on the right pane select Application and ItemSend respectively.
- Copy the following script while being careful not to duplicate the first and last line:
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 = “firstname.lastname@example.org”
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
Set objRecip = Nothing
7 Replace the sample email address with the address of choice.
10 Restart Outlook, agree to saving and everything should be OK.