Hi Barnie

The code you use will only work with Outlook

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


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Barnie" wrote in message ...
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?

--
Barnie