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.
|
