Redemption not working properly

  • Thread starter Thread starter John Brennan
  • Start date Start date
J

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
 
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
 
Yes the PR_EMAIL_ADDRESS has a value is an email addess.
The PR_DISPLAY_NAME has no value assigned to it.

John
 
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
 
Back
Top