DEFINE VARIABLE olMail AS COM-HANDLE NO-UNDO.
DEFINE VARIABLE olWordApp AS COM-HANDLE NO-UNDO.
DEFINE VARIABLE olWordDoc AS COM-HANDLE NO-UNDO.
CREATE "Word.Application" olWordApp.
olWordDoc = olWordApp:Documents:Open("C:\EmailBody.doc").
olMail = olWordDoc:MailEnvelope:Item.
olMail:To = "[EMAIL="myaddress@mycompany.com"]myaddress@mycompany.com[/EMAIL]".
olMail:Subject = "Subject here".
olMail:Save(). /* Email will be in the Drafts folder */
olWordDoc:Close(FALSE).
RELEASE OBJECT olWordDoc.
RELEASE OBJECT olWordApp.
RELEASE OBJECT olMail.