Redemption not working with Outlook 2002 XP SP3

[Guest]

Hi, I can't get rid of the security prompt "A program is trying to access addresses stored in Outlook...."
Here is my code

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean
Dim SafeItem As Redemption.SafeMailIte
Set SafeItem = CreateObject("Redemption.SafeMailItem"
SafeItem.Item = Ite
Dim one_record As Strin
one_record = "Recipient: " + SafeItem.Item.T
Open "c:\temp\ol_log.txt" For Output As #
Print #1, one_recor
Close #

End Su

HELP

 

[Sue Mosher [MVP-Outlook]]

SafeItem.Item.To gets the To property from the original Outlook item. Use
SafeItem.To to get it from the Redemption object.

--
Sue Mosher, Outlook MVP
Author of
Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers

Hi, I can't get rid of the security prompt "A program is trying to access

addresses stored in Outlook....".