Help with Redemption (recipients) please

  • Thread starter Thread starter Steffen Grellmann
  • Start date Start date
S

Steffen Grellmann

Hi Newsgroup,

how do I have do change this code for use with Redemption?

ActiveInspector.CurrentItem.Recipients.Add "(e-mail address removed)"

Your time and help is highly appreciated.

Kind regards,

Steffen
 
Dim safMail As Redemption.SafeMailItem

Set safMail = CreateObject("Redemption.SafeMailItem")
safMail.Item = ActiveInspector.CurrentItem
safMail.Recipients.Add "(e-mail address removed)"
 
Keep in mind however that Outlook will not be able to see the changes made
with Extended MAPI until the item is closed, dereferenced, and reopened.
Setting the To property should work (only reading is blocked):

ActiveInspector.CurrentItem.To = "(e-mail address removed)"

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

Keep in mind however that Outlook will not be able to see the changes made
with Extended MAPI until the item is closed, dereferenced, and reopened.
Setting the To property should work (only reading is blocked):

ActiveInspector.CurrentItem.To = "(e-mail address removed)"
Click to expand...

OK, but how do I have to change the code Ken has posted?

This is working, but with the limitation that the item must be closed
and reopend to show the address.

Kind regards,

Steffen
 
If found it out, just adding the last line in the example below is
working:
OK, but how do I have to change the code Ken has posted?
Click to expand...

ActiveInspector.CurrentItem.To = "(e-mail address removed)"

Kind regards,

Steffen
 
Back
Top