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 "[email protected]"

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 "[email protected]"
 
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 = "[email protected]"

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 = "[email protected]"
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
 
Top