Mirá mano yo tengo este código que me funciona a la perfección
<html>
<head>
<title>Untitled Document</title>
</head>
<body bgcolor="#FFFFFF" text="#000000">
<%
Set objFSO = Server.CreateObject("Scripting.FileSystemObje ct")
Archivo= "volante.html" 'el archivo html a mandar en el 'newsletter'
Dim objTextStream
File = server.MapPath(".") & "/" & Archivo
fsoForReading = 1
sHTML=" "
Set objTextStream = objFSO.OpenTextFile(File, fsoForReading)
sHTML=sHTML & objTextStream.ReadAll
objTextStream.Close
Set objTextStream = Nothing
Set objMail = CreateObject("CDONTS.Newmail")
objMail.From = "
[email protected]"
objMail.To = "
[email protected]"
objMail.BodyFormat=0
objMail.MailFormat=0
objMail.ContentBase = "http://www.miweb.com/"
objMail.ContentLocation = "pruebasp/"
objMail.Body = sHTML
objMail.Send
Set objMail = Nothing
response.write "si"
%>
</body>
</html>
Esto lee un html como txt y lo pone en el body del correo.
Si tenes fotos en volante.html le tenes que poner toda la ruta para que sagan si no no te sale. Orale mano.
