La Web del Programador: Comunidad de Programadores
 
    Pregunta:  20086 - ENVIAR UN PáGINA RESULTANTE DE UN ASP POR CORREO ELETRóNICO
Autor:  Alberto Pérez
Necesito enviar por correo electrónico el código html resultante de la ejecución de una página asp.
Es decir un botón (enviar) que al pulsarlo mande la página actual por correo electrónico a una dirección de correo.
Si me pudieran contestar esta duda me darían una gran alegría.(gracias)

  Respuesta:  Fernando Sierra
es muy facil:
aquí te mando un borrador, espero que lo entiendas

if Request.Form("enviar")<>"" then
'Set objMail = Server.CreateObject("CDONTS.NewMail")
'objMail.Body = "Cuerpo del mensaje"
'objMail.BodyFormat = 0
''objMail.AppendBodyFromFile "C:\Documents and Settings\administrador.MADRID\Escritorio\correo.txt"
'objMail.From = "imunoz@gi.cl"
'objMail.Importance = 0
'objMail.MailFormat = 1
'objMail.Subject="Subject"
'objMail.To = "jmompart@iei.es"
'objMail.AttachFile "C:\Documents and Settings\administrador.MADRID\Escritorio\correo.txt"
'objMail.Send ' <- linea 12
'Set objMail = nothing
'Set Mail = Server.CreateObject("Persits.MailSender")
'Mail.Host = "smtp.mycompany.com"
'Mail.From = "sales@mycompany.com"
'Mail.FromName = "Sales Department"
'Mail.AddAddress "jmompart@iei.es"
'Mail.Subject = "Sales Receipt"
'Mail.Body = "Dear John:" & chr(13) & chr(10) & "Thank you for your business."
'Mail.AppendBodyFromFile "C:\Documents and Settings\administrador.MADRID\Escritorio\correo.txt"
'Mail.send
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.From = "alberto"
objMail.MailFormat = 1
objMail.To = "jmompart@iei.es"
'objMail.ContentTransferEncoding = "quoted-printable"
'objMail.Charset = "windows-1251"
'objMail.AppendBodyFromFile "C:\Documents and Settings\administrador.MADRID\Escritorio\correo.txt"
'objMail.Cc = "hgjg"
'objMail.Subject="Subject"
objMail.Body =Request.Form("Cuerpo")
'objMail.Send
'Set objMail = nothing
objMail.send
end if
%>
<html>
<head>
<title>Untitled</title>
</head>

<body>
<form name="formulario" action="borrador.asp" method="post">
<input type="Submit" name="enviar" value="enviar">
<textarea name="cuerpo">
</textarea>
</form>
</body>
</html>