Using VB to auto generate email - unable to get stationery

[Guest]

I am using an Excel VB procedure to send emails. Works OK but cannot get
stationery. Although stationery is set as default in email editor and comes
up when you create new mail, when invoked by my VB procedure comes up blank.
I have tried replacing "Set objItem = objOutlook.CreateItem(olMailItem)" with
"Set objItem = objOutlook.CreateItem(olFormatHTML)" and various permutations
of "C:\Program Files\Common Files\Microsoft Shared\Stationery\<stationery
file name>"... but am not having any luck.

Any ideas?

 

[Ron de Bruin]

Hi Barnie

The code you use will only work with Outlook

You can try CDO
http://www.rondebruin.nl/cdo.htm