Los formularios son muy utilizados en la web para recoger información de los visitantes de la página. Se utilizan mucho en libros de visitas, comentarios y sugerencias, encuestas, etc. La idea básica es que el visitante llene los campos propuestos en el formulario y cuando éste pulse en el botón Enviar, la información ingresada llegue por correo electrónico al buzón que hayamos especificado.

SCRIPT PARA PLANES WINDOWS MEDIANTE EL COMPONENTE CDOSYS

Configuración de la página HTML que contiene el formulario

La página HTML deberá incluir en la etiqueta form en el parámetro action el nombre de script ASP que se encarga de procesar el formulario al momento en que el usuario haga click en el botón Enviar del formulario.


<form method="post" action="/cdosysconbuzon.asp">

La anterior instrucción supone que usted habrá de subir el archivo cdosysconbuzon.asp al directorio home ( httpdocs ). Si ubica el script dentro de un subdirectorio debe involucrarlo en la ruta.

El script ASP usando el objeto CDOSYS

A continuación presentamos el script completo para que lo copie y pegue con cualquier editor de texto incluido el notepad de windows y guárdelo con un nombre (cdosysconbuzon.asp) con extensión asp, ese nombre es el que debe figurar en el action del tag form del formulario.

<%
' Primero definimos algunas variables
Dim MyBody,sFrom, x , NewLine , urlmicrosoft
NewLine = chr(13) & chr(10)
MyBody = ""

' en las siguientes tres líneas reemplace lo que esta en mayúscula por su información particular
' adicionalmente no olvide cambiar el URL en la penúltima línea de este script.

smtpserver = "mail.ELDOMINIO.COM"
youremail = "ELBUZON@ELDOMINIO.COM"
yourpassword = "ELPASSWORD"

for x = 1 to (Request.Form.Count())
if not Request.Form(x) = "" then
MyBody = MyBody & NewLine & Request.Form.Key(x) & " = " & Trim(Request.Form(x))
end if
next

' configuración del From
if Request.Form("email") = "" then
sFrom = "Anonimo"
else
sFrom = Request.Form("email")
end if

'Ahora colocamos la información adicional
Dim iMsg
Set iMsg = CreateObject("CDO.Message")

'Configuracion del servidor SMTP.

urlmicrosoft = "http://schemas.microsoft.com/cdo/configuration/"
iMsg.Configuration.Fields.Item (urlmicrosoft & "sendusing") = 2
iMsg.Configuration.Fields.Item (urlmicrosoft & "smtpserver") = smtpserver
iMsg.Configuration.Fields.Item (urlmicrosoft & "smtpserverport") = 25
iMsg.Configuration.Fields.Item (urlmicrosoft & "smtpusessl") = False
iMsg.Configuration.Fields.Item (urlmicrosoft & "smtpconnectiontimeout") = 60

'basic (clear-text) authentication
iMsg.Configuration.Fields.Item (urlmicrosoft & "smtpauthenticate") = 1
iMsg.Configuration.Fields.Item (urlmicrosoft & "sendusername") = youremail
iMsg.Configuration.Fields.Item (urlmicrosoft & "sendpassword") = yourpassword

iMsg.Configuration.Fields.Update
'End remote SMTP server configuration section==

iMsg.To = youremail
iMsg.Subject = "Datos del Formulario"
iMsg.From = email
iMsg.Sender = youremail
iMsg.TextBody = MyBody 'iMsg.HTMLBody = MyBody si se tratara de contenido HTML

iMsg.Send

Set iMsg = Nothing

%>
<script>
document.location.replace("http://www.ELDOMINIO.COM")
</script>