Outlook and Redemption Vbscripts.

[yeti]

We are using the Redemption add-in for Outlook 2003 under Exchange 2003. First impressions are that it meet our requirements. However, tests show that mail sent via Redemption is not processed by our Outlook client rules. We have a rule to copy all outbound mail to a specific folder. However, when we run the VBscript code below, the message sent is not affected by the rule. Is there something wrong with this code?

Dim OutlookMessage, oItem
Set OutlookApp = CreateObject("Outlook.Application")
Set Namespace = OutlookApp.GetNamespace("MAPI")
Namespace.Logon

Set OutlookMessage = CreateObject("Redemption.SafeMailItem")
Set oItem=OutlookApp.CreateItem(0)

With OutlookMessage
 .Subject = "Test"
 .Recipients.Add "someone@somewhere.com"
 .Recipients.ResolveAll
 .HTMLBody = "This is a test"
 .Send
End With

Andrew D

 

[tsuji]

Hello yeti,

Should change this? (Maybe your original is not as posted at this point.)
[tt]
With [red]oItem[/red]
[/tt]
regards - tsuji

 

[yeti]

Hi.

I've since had a response from the author of Redemption. He says that rules that run after a message is sent are not MAPI based, i.e. Outlook runs them explicitly and does not not provide an API that Redemption could use.

He suggested that, as a workaround, I can set the mailItem.SaveSentMessageFolder property to the entry id of the folder where the message must be moved after submission.

Instead of this I just modified our script to include an additional BCC recipient - pointing to a mail enabled Public Folder. This worked a treat.

 

[tsuji]

yeti,

Thanks for the feedback. It is nice to know and doc is rare. Redemption has an edge in automation over outlook.application, only it is not in the native package. I take note on your info. Thanks again.

- tsuji