Help with Redemption (recipients) please

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
 
K

Ken Slovak - [MVP - Outlook]

Dim safMail As Redemption.SafeMailItem

Set safMail = CreateObject("Redemption.SafeMailItem")
safMail.Item = ActiveInspector.CurrentItem
safMail.Recipients.Add "(e-mail address removed)"
 
D

Dmitry Streblechenko

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
 
S

Steffen Grellmann

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

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
 
S

Steffen Grellmann

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?

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

Kind regards,

Steffen
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top