Hola Amigos un problema que no le encuentro la vuelta:
Lo que estoy intentando hacer es lo siguiente.
Seleccionar un archivo html pasado por parámetro, y cargar todo su código en una variable:
nom_archivo= Request("nombre_archivo")
path_html = Server.MapPath(nom_archivo)
set oFSO = Server.CreateObject("Scripting.FileSystemObje ct")
set oFich = oFSO.OpenTextFile(path_html)
html = ""
do while not oFich.AtEndOfStream
cadena=oFich.Readline
cadena=Server.HTMLEncode(cadena)
html = html & cadena
loop
Hasta aquí todo bien....
Es mas,si mando el contenido de la variable a un txt, y lo guardo como html me muestra la pagina con todo su diseño.
El problema surge cuando quiero enviar esta variable por correo, y de esta forma el que lo reciba vea la pagina y su contenido, Y NO EL CODIGO HTML.
Set objCDO = Server.CreateObject("CDO.Message")
objCDO.From = "
[email protected]"
objCDO.To = "
[email protected]"
objCDO.Subject = "Asunto"
objCDO.htmlBody = html (variable cargada con todo el codigo del archivo html abierto)
objCDO.Send
set objCDO = nothing
Al usar CDO y no CDONTS no puedo utilizar los métodos bodyformat = 0 y mailformat = 0.
Mirando las propiedades de los encabezados de los email que me llegan con una pagina web, dice que su formato es text/html, cuando miro el que me llega utilizando el CDO desde la pagina asp dice text/plain.
Que metodo puedo usar en CDO(si es que lo hay) para que el contenido de la variable llegue como html y de esta forma se visualize la pagina y no como texto plano mostrandome el codigo html de la pagina??????????
Realmente necesito de su ayuda.!!!!!!!!!!!!!!
Saludos,Marcelo