Envío de datos de un formulario a una dirección de correo

Artículos

Recursos gratuitos

ABC de Informática

Download

Trucos

Servicios

Encuesta

Registrar dominio

Recomendanos

Créditos

Contacto

OPINION

Envío de datos de un formulario a una dirección de correo

Muchas veces necesitamos en nuestro sitio web, un formulario que capture datos de nuestros visitantes y deseamos recibir esos datos en nuestra casilla de correo. Para ello utilizaremos un componente denominado CDONT y es parte del servicio SMTP de Internet Information Server 4.

Este componente nos permite mediante unas pocas líneas de ASP, enviar y recibir mail. Manos a la obra:

Necesitamos una página con el formulario, a la cual llamaremos form.html:

<html>
<head>
</head>
<body>
<form method="post" action="mail.asp">
<p>Nombre:
<input type="text" name="nom">
</p>
<p>Empresa:
<input type="text" name="emp">
</p>
<p>Sugerencias:
<textarea name="sug" cols="35"></textarea>
</p>
<p>
<input type="submit" name="Submit" value="Enviar">
<input type="reset" name="Submit2" value="Limpiar">
</p>
</form>
</body>
</html>

Por otro lado tendremos una página a la que llamaremos mail.asp.
El código es el siguiente:

<%
'Creación de variables para almacenar los campos del formulario

Nombre= Request.Form("nom")
Empresa= Request.Form("emp")
Sugerencias= Request.Form("sug")

strTo = "direccion@tudominio.com" ' Esta es una dirección que corresponda a
nuestro servidor
strSubject = "Envio de sugerencias de: " & Nombre

strBody = "<html><body>"
strBody = strBody & "Este es un mensaje generado por el formulario:" &
"<br><br>"
strBody = strBody & "Nombre: "& Nombre &"<br>"
strBody = strBody & "Empresa: "& Empresa &"<br>"
strBody = strBody & "Sugerencias: "& Sugerencias &"<br>"
strBody = strBody & "</body></html>"

Set objCDOMail = Server.CreateObject("CDONTS.NewMail") 'Creación del objeto

objCDOMail.From = "direccion@tudominio.com" 'No hay problema en que sea la
misma que la anterior.
objCDOMail.To = strTo
objCDOMail.Subject = strSubject

objCDOMail.BodyFormat=0 'Estas dos línes
objCDOMail.MailFormat=0 'permiten formatear mejor el mensaje

objCDOMail.Body = strBody
objCDOMail.Send 'Envía el mail
Set objCDOMail = Nothing
Response.redirect "gracias.html"
' O bien podemos ahorrar una página y escribir algo como
' Response.write "Gracias por enviarnos sus sugerencias"
%>

Por último debemos generar una página con un mensaje de agradecimiento, o bien redireccionar al visitante hacia otra página de nuestro sitio.

Pablo A. Barrientos
Diseño web.
Marketing orientado a Internet
www.grupogdw.com
www.lavariable.com

© La Red Argentina
Creado y mantenido por: Cristian Gentiluomo
Prohibida la copia total o parcial de cualquier información o material sin previa autorización del autor.
www.laredarg.com