VBscript to disable "Use Word to edit e-mail messages" in Outlook

[BikoAlive]

Is there any way I can disable "Use Microsoft Office Word to edit e-mail messages" option in Outlook via vbScript?
I am currently writing the script below, but I need this to disable the option mentioned above. The purpose is I am going to add complex div tags in the HTMLBody which Word cannot handle.

Set objOL = CreateObject("Outlook.Application")
Set objMail = objOL.CreateItem(olMailItem)
objMail.SentOnBehalfOfName = "Tech"
objMail.To = "abc@testuse.com"
objMail.Subject = "Announcement"
objMail.HTMLBody = "<p>test</p>"
objMail.Display

Your help is much appreciated in advance.

 

[Remou]

This may help:

http://msdn2.microsoft.com/en-us/library/aa211848(office.11).aspx

 

[markdmac]

As much as I love scripting, would it not be easier for you to import the Outlook ADM file into a GPO and configure it there?

If you set via script the user will still be able to change it. If you configure via GPO you can lock them out of the setting.

Office 2007 ADM files can be found here:

http://www.microsoft.com/downloads/...9a-e143-4aee-8f7a-e4bbaeba13e7&displaylang=en

Office 2003 ADM files can be found here:

http://www.microsoft.com/downloads/...20-edc2-479b-b115-5abb70b3f490&DisplayLang=en

I hope you find this post helpful.

Regards,

Mark

Check out my scripting solutions at

http://www.thespidersparlor.com/vbscript

Work SMARTER not HARDER. The Spider's Parlor's Admin Script Pack is a collection of Administrative scripts designed to make IT Administration easier! Save time, get more work done, get the Admin Script Pack.

 

[BikoAlive]

Thank you for your suggestion, but BodyFormat = olFormatHTML does not work. I cannot find any more solution from

http://msdn2.microsoft.com/en-us/library/aa171418(office.11).aspx

The following is what I wrote.

Set objOL = CreateObject("Outlook.Application")
Set objMail = objOL.CreateItem(olMailItem)
objMail.SentOnBehalfOfName = "Tech"
objMail.To = "abc@testuse.com"
objMail.Subject = "Announcement"
objMail.HTMLBody = "<u><b>testere</b></u>"
objMail.BodyFormat = olFormatHTML
objMail.Display