Redemption not working properly

[John Brennan]

We have been using Redemption for about a year and it has
now stopped populating the "To" field. The environment is
Outlook 2003, Exchange 5.5 the App is written in VFP.

oOutLook = CREATEOBJECT('Outlook.Application') && open
outlook
oSafeItem = CREATEOBJECT('Redemption.SafeMailItem') &&
open redemption
oNameSpace = oOutLook.GetNameSpace('MAPI')
oNameSpace.Logon
oItem = oOutLook.createitem(0) && create new mail message
oSafeItem.ITEM = oItem && create safe item object

WITH oSafeItem
.recipients.ADD(eaddress)
.recipients.ResolveAll
.subject = (tsubject)
.RTFBody= .RTFBody + clBody
.save()
.SEND()
ENDWITH
So it sends but the "To" field is empty when you look at
it in Outlook in the sent items folder.

Ideas?
Thanks
John

 

[Dmitry Streblechenko \(MVP\)]

If you look at that message in the Sent Items folder using OutlookSpy (click
IMessage), do you see any entries in the GetRecipientTable tab?

Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool

 

[Guest]

Yes the PR_EMAIL_ADDRESS has a value is an email addess.
The PR_DISPLAY_NAME has no value assigned to it.

John

 

[Dmitry Streblechenko \(MVP\)]

Can you zip the message in question as an MSG file (File|Save As), zip it
(important!) and send it to me?

Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool

 

[John Brennan]

I have sent it.
John

-----Original Message-----
Can you zip the message in question as an MSG file (File|Save As), zip it
(important!) and send it to me?

Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool





.