default "user templates" for new email messages

C

charlie

I have just set up a html template, however, everytime I want to use this
template when sending a new email I have to do the following:

* Click "New Message" menu
* Select "Choose Form"
* Select "User templates in file system" from "look in" menu

Any ideas how to default my template, so it is there everytime i create a
new message?
 
L

Lorne

charlie said:
I have just set up a html template, however, everytime I want to use this
template when sending a new email I have to do the following:

* Click "New Message" menu
* Select "Choose Form"
* Select "User templates in file system" from "look in" menu

Any ideas how to default my template, so it is there everytime i create a
new message?
Click to expand...

One way is to write a macro to do it for you and put a button on the menu to
execute the macro - then you can have several buttons - one for each
different stationery. If you do not know how to write macros search help on
visual basic, else wait for somebody else to offer another option.

This code works for me:

Sub NewLetter2()
Const strStationeryFile = "C:\Program Files\Common Files\Microsoft
Shared\Stationery\Letter2.htm"
Set NewMail = Application.CreateItem(olMailItem)
Set objFS = CreateObject("Scripting.FileSystemObject")
Set objStationeryFile = objFS.OpenTextFile(strStationeryFile, 1, False)
NewMail.HTMLBody = objStationeryFile.ReadAll
objStationeryFile.Close
NewMail.Display
End Sub
 
Top