Send Email Via Outlook

[Gintaras]

As always, to get list of COM functions, use type libraries, not IDispatch. Because IDispatch resolves function names at run time, and does not give you info when you create macro.

Macro Macro1817

Code:

Copy      Help

typelib Outlook {00062FFF-0000-0000-C000-000000000046} 9.2 ;;this may be different on your PC. Look for outlook type library in QM type libraries dialog, and insert it here.
Outlook.Application oolApp._create
Outlook.MailItem email=oolApp.CreateItem(0)
email.Recipients.Add("abcaashn@gmail.com")

str MailBody.getfile("$desktop$\Document.rtf")

;Send the Email
email.Subject = "test"
email.BodyFormat=Outlook.olFormatRichText
email.Body = MailBody ;;not HTMLBody
email.Send

;however it did not work. Received message is garbage. Message source says that it contains HTML converted from rich text format. But converted incorrectly.