Mandar pagina HTML con Aspemail

JuanjoCyS · #1 (**permalink**) 15/11/2002, 16:59

Hola.
Necesito mandar a través de un e-mail la típica página web, por ejemplo la que te manda con ofertas de viajes, etc.
Debo utilizar el AspEmail porque es la única solución que tengo para poder hacer otra cosa posterior.
La página a mandar sería de la siguiente forma:
Un usuario rellena un formulario con unos datos para hacer un pedido, una vez que pulsa enviar, a los responsables de la empresa les debe llegar un e-mail pero no como llegan normalmente los e-mails de los formularios en formato texto , sino que únicamente sea una página web que se debe rellenar con lo datos que puso el usuario.
Me imagino que debo tener una plantilla de esa página web, y de alguna manera poder insertar en los campos los valores escritos por el usuario, y una vez escrita poder mandarla por e-mail.
La teoría más o menos creo saber por donde va, pero de AspEmail ando muy flojo.
¿podríais echarme una ayuda por favor?
Muchas gracias.
Juanjo

RootK · #2 (**permalink**) 15/11/2002, 18:09

Hola.. si quieres enviar el mail en formato html.. podrías hacer algo como esto:

previamente haces un formulario y la respuesta lo pasas a otra pagina para recoger los datos y procesarlos de la siguiente manera....

strHost="tu_stmp.com"
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = strHost
Mail.From = "[email protected]"
Mail.FromName = request.form("nombre")
Mail.AddReplyTo request.form("email")
Mail.AddAddress request.form("emailamigo")
titulo=Request.form("Nombre")&" te envía un mail"
Mail.Subject = titulo
Mail.IsHTML = True 'para que envíe en formato HTML

mensaje = "<html><body> Notificacion !! " & _
" De: " & Request.Form("nombre") & " " & _
" <center>" & comentarios & " </center>Gracias por usar nuestros servicios" & _
"</body></html>"

Mail.Body= mensaje

On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "Error : " & Err.Description
else
response.write "Mensaje enviado"
end if

Saludos y suerte...