Enviar Mail y Confirmacion

Manoloweb · #1 (**permalink**) 29/01/2003, 13:43

Quiero compartir con ustedes un pequeño script que hice para enviar un formulario por mail en formato html y una confirmación al visitante a traves de un mail normal.

Código:

  Dim enviaMail, HTML
  Set enviaMail = CreateObject("CDONTS.NewMail")
  
  HTML =  "<html>"
  HTML = HTML & "<head>"
  HTML = HTML & "<meta http-equiv=""Content-Type"""
  HTML = HTML & " content=""text/html; charset=iso-8859-1"">"
  HTML = HTML & "<title>Email desde la p&aacute;gina</title>"
  HTML = HTML & "</head>"
  HTML = HTML & "<body>"
  HTML = HTML & "<font face='Arial' size='3' color='#006699'><b>Solicitud de informaci&oacute;n desde la p&aacute;gina</b></font><br><br> "
  HTML = HTML & "<font face='Arial' size='2' color='#000000'><b>Nombre: </b>" &request.form("nombre")& "</font><br>"
  HTML = HTML & "<font face='Arial' size='2' color='#000000'><b>Empresa: </b>" &request.form("empresa")& "</font><br>"
  HTML = HTML & "<font face='Arial' size='2' color='#000000'><b>Correo Electr&oacute;nico: </b>" &request.form("email")& "</font><br>"
  HTML = HTML & "<font face='Arial' size='2' color='#000000'><b>Tel&eacute;fono: </b>" &request.form("telefono")& "</font><br>"
  HTML = HTML & "<font face='Arial' size='2' color='#000000'><b>Ciudad: </b>" &request.form("ciudad")& "</font><br>"
  HTML = HTML & "<font face='Arial' size='2' color='#000000'><b>Pa&iacute;s: </b>" &request.form("pais")& "</font><br>"
  HTML = HTML & "<p><font face='Arial' size='2' color='#000000'><b>Comentarios: </b><br>" &request.form("comentarios")& "</font></p>"
  HTML = HTML & "</body>"
  HTML = HTML & "</html>"
  
  enviaMail.From = request.form("email")
  enviaMail.To = "[email protected]"
  enviaMail.Subject = "Desde el Web Site"
  enviaMail.BodyFormat = 0
  enviaMail.MailFormat = 0
  enviaMail.Body = HTML
  enviaMail.Send
  Set enviaMail = Nothing

  Dim confirmaMail
  Set confirmaMail = CreateObject("CDONTS.NewMail")
  confirmaMail.From = "[email protected]"
  confirmaMail.To = request.form("email")
  confirmaMail.Subject = "Datos recibidos"
  confirmaMail.Body = "Su solicitud de informacion desde la pagina ha sido enviada exitosamente, espere noticias nuestras pronto"
  confirmaMail.Send
  Set confirmaMail = Nothing

Espero que a alguien le sirva...

splashman · #2 (**permalink**) 29/01/2003, 16:43

oye amigo...

agregas cosas muy interezantes a este foro, pero quedaria mucho mejor en la faqs de asp

salu2

Manoloweb · #3 (**permalink**) 29/01/2003, 17:09

No estoy dado de alta el faqsdelweb.com como usuario... asi que alguien con acceso puede copiarlas para alla...

Bueno,

Gracias por el comentario