Redemption not working with Outlook 2002 XP SP3

  • Thread starter Thread starter Guest
  • Start date Start date
G

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
 
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



Tavo said:
Hi, I can't get rid of the security prompt "A program is trying to access
Click to expand...
addresses stored in Outlook....".
 
Back
Top