03-23-2015, 05:04 PM
I tried:
Macro enviar_correo_outlook
Display is correct but saves file in txt format. Any solution?
Macro enviar_correo_outlook
typelib Outlook {00062FFF-0000-0000-C000-000000000046} 9.5
Outlook.Application oolApp._create("Outlook.Application")
Outlook.MailItem email = oolApp.CreateItem(0)
Outlook.Recipient recipients
recipients=email.Recipients.Add("[email protected]")
recipients.Type=Outlook.olTo;;olTo
recipients=email.Recipients.Add("[email protected]")
recipients.Type=Outlook.olCC;;olCC
;Create the body of the email
str MailBody =
;<!DOCTYPE HTML PUBLIC "-//W3C//DTD W3 HTML//EN"><HTML>
;<HEAD><TITLE>No Invoices</TITLE></HEAD>
;<BODY>
;<B>For Your Information</B>,<BR><BR>
;This is Sample Email.<BR><BR>
;</BODY></HTML>
;Send the Email
email.Subject = "No Invoices Issued"
;email.BodyFormat=Outlook.olFormatRichText
email.HTMLBody = MailBody
;email.Attachments.Add("C:\test1.txt")
;email.Recipients.ResolveAll
email.Display
email.Saveas("C:\test.msg" Outlook.olMSG)
;email.Send
Display is correct but saves file in txt format. Any solution?