Use the "Direct Reply To" option in sending an email through VBS

Hi,
is there a way i can compose a new email message in VBS and use the "Direct Reply To" so that the replies will be forwarded to another user ? i know how to do so in Outlook, but i need the vbs version? if it exists?
johnnyjonathanAsked:
Who is Participating?

[Product update] Infrastructure Analysis Tool is now available with Business Accounts.Learn More

x
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

Patrick MatthewsCommented:
This simple VBScript illustrates how:




Dim olApp, olMsg

Set olApp = CreateObject("Outlook.Application")
Set olMsg = olApp.CreateItem(0)

With olMsg
    .To = "a@xyz.com"
    .Subject = "Subject"
    .Body = "Body"
    .ReplyRecipients.Add "b@xyz.com"
    .Send
End With

Set olMsg = Nothing
Set olApp = Nothing
0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
Patrick MatthewsCommented:
johnnyjonathan,

Slight modification, using the Redemption DLL to sidestep one of Outlook 2003's security features implemented
starting in Outlook 2000 SP2, and persisting at least through 2002 and 2003.

To disable it, I've used three products:

1) Express ClickYes
http://www.contextmagic.com/express-clickyes/
There is a free version and a Pro version for ~$30 with more features.  I've used the pro version.
It works as advertised.  I'm not using it currently.  I'm using the MAPILab product instead.

2) MAPILab Advanced Outlook Security
http://www.mapilab.com/outlook/security/
A free COM add-in for Outlook.  I am using it now and I like it

3) Redemption
http://www.dimastr.com/redemption/
A DLL you can use in your code to disable the warnings.  Free download, but you must pay a
license to distribute.  I've used it and like it.


Regards,

Patrick
Dim olApp, olMsg, redSafeMail
 
Set olApp = CreateObject("Outlook.Application")
Set olMsg = olApp.CreateItem(0)
Set redSafeMail = CreateObject("Redemption.SafeMailItem")
redSafeMail.Item = olMsg
 
With redSafeMail
    .To = "a@xyz.com"
    .Subject = "Subject"
    .Body = "Body"
    .ReplyRecipients.Add "b@xyz.com"
    .Send
End With
 
Set redSafeMail = Nothing
Set olMsg = Nothing
Set olApp = Nothing

Open in new window

0
johnnyjonathanAuthor Commented:
500
0
johnnyjonathanAuthor Commented:
Thank you, i'm using MAPILab Advanced Outlook Security and it's working great
0
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
VB Script

From novice to tech pro — start learning today.