Hoi,
Met onderstaande code wordt Email Blast Template v3.xlsm (als bijlage bijgevoegd) geopend en worden de [variabele] velden ingevuld. Zowel het oft - als het excel bestand dienen in dezelfde map te staan. Op mijn prive laptop werkt dit feilloos. Doe ik dit in mijn zakelijke omgeving dat verandert het lettertype, verdwijnen de ENTER's, de alinea indeling en tekens als >. Alles staat achter elkaar. Het lijkt wel of er platte tekst van gemaakt wordt. De mail staat ingesteld op HTML. Enige idee waar ik moet zoeken om dit goed werkend te krijgen in de zakelijke omgeving. Bestand en macro is overigens met kleine aanpassing van het internet geplukt. De macro werkt alleen als een cell onder kolom email is geslecteerd. Ik maak zowel zakelijk als prive gebruik van Office 2016.
Met onderstaande code wordt Email Blast Template v3.xlsm (als bijlage bijgevoegd) geopend en worden de [variabele] velden ingevuld. Zowel het oft - als het excel bestand dienen in dezelfde map te staan. Op mijn prive laptop werkt dit feilloos. Doe ik dit in mijn zakelijke omgeving dat verandert het lettertype, verdwijnen de ENTER's, de alinea indeling en tekens als >. Alles staat achter elkaar. Het lijkt wel of er platte tekst van gemaakt wordt. De mail staat ingesteld op HTML. Enige idee waar ik moet zoeken om dit goed werkend te krijgen in de zakelijke omgeving. Bestand en macro is overigens met kleine aanpassing van het internet geplukt. De macro werkt alleen als een cell onder kolom email is geslecteerd. Ik maak zowel zakelijk als prive gebruik van Office 2016.
Code:
Sub send_email()
Set outlook = CreateObject("Outlook.application")
Set email = outlook.CreateItemFromTemplate(ThisWorkbook.Path & "\template.oft")
email.htmlbody = Replace(email.htmlbody, "[Name]", ActiveCell.Offset(0, -1).Value)
email.htmlbody = Replace(email.htmlbody, "[Business]", ActiveCell.Offset(0, 3).Value)
email.to = ActiveCell.Offset(0, 0).Value
email.subject = ActiveCell.Offset(0, 1).Value
email.display
End Sub