Tema: E-mail
Ver Mensaje Individual
  #2 (permalink)  
Antiguo 17/03/2003, 16:22
Avatar de Manoloweb
Manoloweb
 
Fecha de Ingreso: enero-2002
Ubicación: Monterrey
Mensajes: 2.454
Antigüedad: 23 años, 3 meses
Puntos: 5
Te paso un script que hice yo para una página...

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.Cc = "[email protected]"
  enviaMail.Subject = "Desde el Web Site"
  enviaMail.BodyFormat = 0
  enviaMail.MailFormat = 0
  enviaMail.Body = HTML
  enviaMail.Send
  Set enviaMail = Nothing
__________________
Manoloweb