Ver Mensaje Individual
  #3 (permalink)  
Antiguo 20/04/2007, 12:56
evoarte
 
Fecha de Ingreso: julio-2002
Mensajes: 813
Antigüedad: 22 años, 9 meses
Puntos: 2
Re: Cuerpo correo con ASPEMAIL

buenas tardes:

necesitas 2 páginas:

1. html con el formulario:

2. una asp que recibe los valores del formulario y envía el correo:

<%

dim nombre, correo, comentario
nombre = Request.Form("nombre")
correo = Request.Form("correo")
comentario = Request.Form("comentario")

dim para, mensaje, asunto
para = correo

mensaje = ""
asunto = ""

Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "nombreservidordecorreo" // Aquí tu servidor de correo //
Mail.From = "[email protected]" // Aquí tu dirección de correo //
Mail.AddAddress para
Mail.Subject = asunto
'El mensaje en formato html
Mail.IsHTML = True
Mail.Body = "<HTML><BODY><p>" &mensaje&" </p></BODY></HTML>"
On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "Ha ocurrido el siguiente error: " &Err.Description
else
Response.Write("El Correo se ha enviado correctamente")
End If
%>

un saludo.