Redemption code for auto bcc?

[GeneralZod]

Can anyone help me create a Redemption version of this code to automatically bcc a given address everytime you send an email in outlook?
The non-Redemption code is from here: http://www.outlookcode.com/d/code/autobcc.htm

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim objMe As Recipient
    Set objMe = Item.Recipients.Add("[email protected]") 
    objMe.Type = olBCC 
    objMe.Resolve 
    Set objMe = Nothing 
End Sub

Links that were helpful but not enough for me to solve the problem are:
http://www.outlookcode.com/d/code/autoaddrecip.htm
http://www.outlookcode.com/d/code/getsenderaddy.htm#redemption
http://www.dimastr.com/redemption/objects.htm#SafeMailItem

The original code works if I lower my security settings to medium or low, but a Redemption version is what I'm looking for.

Thanks!