Uso de aspEmail y envío de páginas HTML por correo.

C. G.
04 de Febrero del 2004
Se me plantea el siguiente problema.

Quiero mandar una página HTML dinámica programada en ASP mediante aspEmail, encontrándome con que la única manera que veo es creando un archivo HTML o TXT con el resultado interpretado.

Esto es, obtener el código HTML resultado del ASP, guardarlo como un archivo HTML o TXT e igualar todo el código a una cadena mediante Scripting.FileSystemObject para decirle a aspEmail que esa cadena es el cuerpo del mensaje que debe enviar.

Este procedimiento me obliga a crear manualmente ese archivo HTML o TXT que convierto en cadena cada vez que modifico contenidos, y me gustaría automatizar el proceso, pero para ello se me ocurre que debe haber alguna forma de poder convertir en cadena el resultado HTML de un ASP, pero que yo no doy con ello.

Código de lo que tengo hasta ahora:

Parto de haber guardado el resultado HTML de defaul.asp como archivo.txt

Procedimiento 1
Set TXT = server.CreateObject("Scripting.FileSystemObject")
Set ARCHIVO = TXT.OpenTextFile(server.mappath("/archivo.txt"))
PAGINA = ARCHIVO.ReadAll
set TXT = Nothing

Procedimiento 2
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "smtp.servidordecorreo.es"
Mail.From = "[email protected]"
Mail.FromName = "suario"
Mail.AddAddress "[email protected]"
Mail.Subject = "asunto del correo"
Mail.IsHTML = True
Mail.Body = PAGINA ‘ cadena obtenida en el procedimiento 1
Mail.Send

Me gustaría poder igualar PAGINA a una URL del tipo http//www.domini.es/default.asp o poder igualar el Body en aspEmail a un URL del mismo tipo, obteniendo como resultado el envío del código HTML resultado del ASP, no el código ASP como ocurre.

Gracias por adelantado por cualquier colaboración.