using SendEmail function
- 5 years ago
In the Help Topic, "Sending Email From Scripts", there are three sections. I was able to resolve my problem by using the third option "Via Microsoft Outlook" I have to be sure to close my Outlook session before I leave each evening but my script can build an HTML body and then send it using code similar to the following example.
dim outlook
Set outlook = Sys.OleObject("Outlook.Application")
dim body
body = "<html xmlns:v=""urn:schemas-microsoft-com:vml"" xmlns:o=""urn:schemas-microsoft-com:office:office"" xmlns:w=""urn:schemas-microsoft-com:office:word"" xmlns:m=""http://schemas.microsoft.com/office/2004/12/omml"" xmlns=""http://www.w3.org/TR/REC-html40"">"
body = body + "<head>"
body = body + "<META HTTP-EQUIV=""Content-Type"" CONTENT=""text/html; charset=us-ascii"">"
body = body + "<meta name=Generator content=""Microsoft Word 15 (filtered medium)"">"
body = body + "</head>"
body = body + "<body lang=EN-US link=""#0563C1"" vlink=""#954F72"">"
body = body + "<div>"
body = body + "<....a lot more html tags including <a href=""file://filename.ext"">Link Text</a>.....>"
body = body + "</div></body></html>"
Dim mi
Set mi = outlook.CreateItem(0)
mi.BodyFormat = olFormatHTML
mi.Subject = "Test Results"
mi.HTMLBody = body
mi.To = "recipients.name@companyname.com"
mi.Send
outlook.Quit