- Joined
- Jun 7, 2005
- Messages
- 1
- Reaction score
- 0
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
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!
The non-Redemption code is from here: http://www.outlookcode.com/d/code/autobcc.htm
Code:
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!