why doesnt this code work?

[voip1234]

I am trying to get an automatic bcc using the code provided by
slipstick using the redemption library.

I used the following code

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As
Boolean)
Dim objMe As redemption.SafeRecipient
Dim sMail As redemption.SafeMailItem
Set sMail = CreateObject("Redemption.SafeMailItem")
Item.Save
sMail.Item = Item
Set objMe = sMail.Recipients.Add("(e-mail address removed)")
objMe.Type = olBCC
objMe.Resolve
Set objMe = Nothing
Set sMail = Nothing
End Sub

(changing the (e-mail address removed))

and I installed the redemption library (which claimed to have installed
correctly)

this is the error I get (translated from spanish, so its not exact)

compilation error: type not defined by user

then it opens the VB editor and highlights in yellow the line

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As
Boolean)

and highlights in blue

Dim objMe As redemption.SafeRecipient

I already rebooted the machine to see if that was required after
installing the redemption library...but I get the same error....

any ideas?

thanks

 

[voip1234]

another question...

there is this other code that goes
------------
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
--------------
this works but shows the security warning. then it goes on to say
" You could avoid security prompts by simply setting the Item.Bcc
property to the address."

what exactly would I have to change to try that? I would have to "set
the Item.BCC" from what to what? which line should I change into what?I
am pretty new to this as you can probably tell.
thanks.