automatically BCC in Outlook 2007

Have you ever wanted to automatically bcc all your outbound mail to a specific email address? I wanted to send a copy of ALL sent mail from Outlook at work to my Gmail address. You could try to do this via Outlook's Rules and Alerts, but there's no option to bcc...only cc. I'd prefer that all my work contacts not know my personal Gmail address, and it's not very professional. I also don't want to manually enter my Gmail address in the bcc field of every outgoing message... the solution? Visual Basic Scripting.

The steps (MS Outlook 2007):

1. Open MS Outlook 2007
2. Under the Tools menu, select Macro > Visual Basic Editor (or Alt+F11)
3. In the left menu bar, expand Project1, Microsoft Outlook Session, and open ThisOutlookSession
4. Enter copy & paste this code, making sure to substitute youremailaddress@domain.com with your real email address:

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 = "youremailaddress@domain.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

Save the session, close the Visual Basic Editor, restart Outlook, and you're good to go! (make sure that you've allowed Outlook to run macros) You can verify that your emails are being cc'd by (1) checking your alternate email address or (2) looking at the bcc field of one of your messages in the Sent Items folder.