Using the second method in the article "How to send an email from Word using
VBA" at:
http://word.mvps.org/FAQs/InterDev/SendMail.htm
gives you access to the Outlook Object Model that will allow you to do what
you want.

Signature
Please respond to the Newsgroup for the benefit of others who may be
interested. Questions sent directly to me will only be answered on a paid
consulting basis.
Hope this helps,
Doug Robbins - Word MVP
>i create a word document as email
> lpDisp = docs.Add(Optional, Optional, wdNewEmailMessage, Optional);
[quoted text clipped - 3 lines]
> thanks
> condor
condor - 12 Nov 2004 09:49 GMT
i have resolve for the moment with this code because i need RTF text to insert:
doc.AttachDispatch(lpDispDocs);
MsoEnvelopeVB.AttachDispatch(doc.get_MailEnvelope());
mailItem.AttachDispatch(MsoEnvelopeVB.get_Item());
mailItem.put_To(lpszTO);
mailItem.put_Subject(strSubject);
selection.AttachDispatch(objWord.get_Selection());
selection.Paste(); // RTF text
WindowWord.AttachDispatch(doc.get_ActiveWindow());
WindowWord.put_EnvelopeVisible(TRUE);
thanks for yuor help
condor
> Using the second method in the article "How to send an email from Word using
> VBA" at:
[quoted text clipped - 10 lines]
> > thanks
> > condor