strFrom = "ScriptResults@ScriptComplete.com"
strTo = "greggo@hisownlittleworld.com"
strSubject = "Here are the results from the script!"
strSMTPServer = "emailserver.abccorp.com"
strResultsFile = "script.results.txt"

set objFSO = CreateObject("Scripting.FileSystemObject")
set objFile = objFSO.OpenTextFile(strResultsFile, 1, true)

strReadFile = objFile.ReadAll

Set objEmail = CreateObject("CDO.Message")
objEmail.From = strFrom
objEmail.To = strTo
objEmail.Subject = strSubject
objEmail.Textbody = strReadFile
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strSMTPServer
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields.Update
objEmail.Send