Esto si que es complejo... :-(

[Evil_Ryu]

strPageFisicalPath = Request.ServerVariables("APPL_PHYSICAL_PATH&q uot;) & strPath

Set objFileSystem = Server.CreateObject("Scripting.FileSystemObje ct")

Set objPage = objFileSystem.OpenTextFile(strFisicalPath,1,0)

Set f = objFileSystem.GetFile(strPageFisicalPath)

Set objPage = f.OpenAsTextStream(1,-2)

strHtmlBody=objPage.ReadAll()

Set Mailer = Server.CreateObject("ASPMail.ASPMailCtrl.1&qu ot;)

cTypeString = "text/html; charset=""windows-1252"""

result = Mailer.XHeader("Content-Type", cTypeString)

result = Mailer.SendMail(strMailServer, strToEMail, strFromEMail, strSubject, strHtmlBody)