Tema: Enviar Mail y Confirmacion
Ver Mensaje Individual
  #1 (permalink)  
Antiguo 29/01/2003, 13:43
Avatar de Manoloweb
Manoloweb
 
Fecha de Ingreso: enero-2002
Ubicación: Monterrey
Mensajes: 2.454
Antigüedad: 23 años, 3 meses
Puntos: 5
Enviar Mail y Confirmacion
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...
__________________
Manoloweb