Emailing HTML file contents with VBS script

Question

How can I get this script to load the contents of a HTML file and send it as the email body.

I keep getting an error that says

Line 8

Invalid procedure call or argument

Code: 800A0005

I have tried that and it works thanks.

But when it reads the htm file the script breaks because there are more than one “ in the file.

I am getting this error

Line: 13 Object doesn't support this property or method: 'objEmail.CreateMHTMLBody' code: 800A01B6

What can I do to fix it.

Dim fso

Set objEmail = CreateObject("CDO.Message")
objEmail.From = "user@Example.com"
objEmail.Subject = "Test Email"


Const ForReading=1
Set fso = CreateObject("Scripting.FileSystemObject")
Set dict = CreateObject("Scripting.Dictionary")
BodyText = fso.OpenTextFile("C:\Users\user\Desktop\Email.htm",ForReading).ReadAll
objEmail.CreateMHTMLBody = BodyText

objEmail.AddAttachment "C:\Users\user\Desktop\test.txt"

Set fso = CreateObject("Scripting.FileSystemObject")
Set dict = CreateObject("Scripting.Dictionary")
Set file = fso.OpenTextFile ("C:\Users\user\Desktop\address.txt", 1)
row = 0
Do Until file.AtEndOfStream
line = file.Readline
dict.Add row, line
row = row + 1
objEmail.To = line

objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _
    "127.0.0.1"
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields.Update
objEmail.Send
Loop

Answer 1

• Set statement assigns an object reference to a variable or property;
• ReadAll method reads an entire TextStream file and returns the resulting string.

Hence, next code snippet should work:

Const ForReading=1
Set fso = CreateObject("Scripting.FileSystemObject")
Set dict = CreateObject("Scripting.Dictionary")
BodyText = fso.OpenTextFile("C:\Users\user\Desktop\Email.htm",ForReading).ReadAll
' superabundant Set fso = CreateObject("Scripting.FileSystemObject")
' superabundant Set dict = CreateObject("Scripting.Dictionary")
Set file = fso.OpenTextFile ("C:\Users\user\Desktop\address.txt", 1)
' …
'
objEmail.Subject = "Test Email"
objEmail.HtmlBody = BodyText
'…

Please read Paul R. Sadowski's article VBScript To Send Email Using CDO. There is a hint how to send a webpage from a file on your machine using CreateMHTMLBody method instead of setting HTMLBody property.