How to use a text file to fill in the MessageText and MessageHTMLText property.

Created on by Andre Lorbach.

You don't want to build large strings with html-code or plain text to fill the MessageText or MessageHTMLText property? So why not using a plain text or html file. You will find below a simple code sample that explains how to open and read a text file and how to fill this into the MessageText or MessageHTMLText property:

'Create SimpleMail object Dim osm set osm = CreateObject("ADISCON.SimpleMail.1") 'Set defaults osm.MailServer = "127.0.0.1" osm.Port = 25 osm.ProcessingMode = 2 osm.Sender = "Your@sender" osm.Recipient = "Your@Recipient" osm.Subject = "My cool HTML Email for you" 'Create FileSystemObject and open the textfile Dim fso,fi Set fso = CreateObject("Scripting.FileSystemObject") Set fi = fso.OpenTextFile("MyCoolHTMLFile.html") 'Fill the MessageHTMLText Property line by line Do While Not (fi.atEndOfStream) osm.MessageHTMLText = osm.MessageHTMLText & fi.ReadLine + vbcrlf Loop 'Sends the Email call osm.Send set osm = Nothing