Redemption and "Send To" in Word

[Steffen Grellmann]

Hi Newsgroup,

I'm trying to fill the To-field by code:

Dim safMail As Redemption.SafeMailItem

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

This works well in Word when using "Send To" as long Outlook is
closed. What do I have to change to get it working for use with "Send
To" in Word with Outlook_opened_in the background?

Kind regards,

Steffen

 

[Dmitry Streblechenko]

The code below dow not use Redemption at all: you never use the safMail
variable. Also note that setting the To property is not blocked, only
reading it is.

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

 

[Steffen Grellmann]

Thank you for replying, Dmitry.

But why is

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

not working in Word when using "Send To" as long Outlook is
openend?

Kind regards,

Steffen

 

[Dmitry Streblechenko]

Did you check that Application.ActiveInspector actually returns a valid
Inspector object?

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

 

[Steffen Grellmann]

In both cases, Outlook opened or not, Application.ActiveInspector does
NOT returns "Nothing" when called from Word for use with "SendTo".

 

[Dmitry Streblechenko]

Hmmm... Do you have a sample project that exhibits this error? Can you send
it to my private address?
If you attach executables or scripts (exe, bas, etc), please rename them
first as my e-mail server rejects messages with such attachments.
Thanks!

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

 

[Steffen Grellmann]

Hi Dmitry,

thank you for replying.

Hmmm... Do you have a sample project that exhibits this error? Can you send
it to my private address?

I highly appreciate your offer. Mail will be sent soon.

Kind regards,

Steffen