Auto-BCC in Outlook 2007 using VB code ? Devs please help!

[intah]

Anyone know VB code that WORKS for Outlook 2007 -- that
automatically BCCs
all emails to an email address of your choosing?

I tried using the following code:

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As
Boolean)
Dim objMe As Recipient
Set objMe = Item.Recipients.Add("(e-mail address removed)")
objMe.Type = olBCC
objMe.Resolve
Set objMe = Nothing
End Sub

found at: http://www.outlookcode.com/d/code/autobcc.htm

but for whatever reason, it doesn't work in Outlook 2007. I tried
the same
code in Outlook 2003 and it worked flawlessly. I guess some security
prevents it from running in Outlook 2007.

Any suggestions/comments would be greatly appreciated!