Hi folks,
I am writing a macro that has to send emails from a Workbook. Those emails have to be in HTML format. I was able to create HTML emails, but after sending they are converted into RTF emails. To be exact: when .display(ed) those emails are HTML. After sending (in the recipients inbox, and in my sent box) those emails are in RTF format.
Any idea why this is happening?
The code is very simple, like:
Dim OutApp as Object
Set OutApp = Createobject("Outlook.Application")
Dim OutMail as Object
Set OutMail = CreateEmailfromTemplate(Path)
With OutgoingMail
.to = ...
.from = ...
.subject = ...
.bodyformat = 2 // 2 is for html format, result didnt change with this property ot without it
.htmlformat = .htmlformat & Nexthtml //nexthtml is to be added at the end of the email - but dont shows up as the email is not html
.display
End with
The important point is the NextHTML, that is the uniqe part of the email for any recipient.
Thank you very much for any opinions!
Regards,
Shuter
Bookmarks