Repost: Set default stationery with VBScript

[HJ]

Hi all,

Is it possible to set the default stationery for a user with VBScript? In
Outlook 2003 this option is located under Tools, Options, Mail Format, Use
this stationery by default.

The message format is left at it's default: HTML.

When setting up a new user we already copy the company Word templates to the
user profile with a VBScript script file and it would help if we could
include this Outlook 2003 setting in the script.

Thanks in advance,

HJ

 

[HJ]

I found it.

Since we are using Word when composing e-mails, the font type and size is
set in Word itself under Tools, Options, General, E-mail Options, Personal
Stationery.

In VBScript it looks like this:

'Set the font types of e-mail messages that are composed using Word
Set wordObj = CreateObject("Word.Application")
wordObj.EmailOptions.ComposeStyle.Font.Name = "Times New Roman"
wordObj.EmailOptions.ComposeStyle.Font.Size = 11
wordObj.EmailOptions.ReplyStyle.Font.Name = "Times New Roman"
wordObj.EmailOptions.ReplyStyle.Font.Size = 11
wordObj.EmailOptions.PlainTextStyle.Font.Name = "Times New Roman"
wordObj.EmailOptions.PlainTextStyle.Font.Size = 11

HJ