Cómo hacer un formulario para que envíe un correo con ASP

En Baehost tenemos una política de Zero Spam; esto significa que debemos configurar de determinada manera los formularios de contacto que ponemos en nuestras páginas para que puedan enviar correos electrónicos. La manera «determinada» es usando el SMTP de nuestro dominio de email que tenemos incluido en todos los planes de Web Hosting.

Hoy veremos el caso de ASP y cómo debe programarse el formulario.

Antes que nada, deberemos crear una cuenta desde nuestro panel de control. Para este fin, recomendamos crear una cuenta habilitando la opción «Descartar todo el correo» (Discard All Incoming Mail).

Acá les dejo un ejemplo de implementación en ASP utilizando Collaboration Data Objects 1.2.1 (CDO) instalado en el servidor.

Primero, deberemos definir las siguientes variables:

from: debería ser una cuenta creada en nuestro panel de control, tal como lo comenté más arriba, y que se usará para enviar los correos que se generen desde el formulario hacia una casilla que tu indiques.

tto: esta es la variable que indica hacia qué casilla de correos se enviarán los mensajes generados por el formulario de contacto.

subject: asunto del correo (en el ejemplo: contacto online)

body: cuerpo del mensaje (como por ejemplo, un aviso que diga que el contacto viene desde el formulario de contacto).

host: el host es el servidor de correo. En nuestro caso, y dado que usaremos el servidor de nuestra cuenta de hosting, comienza con mail.tudominio.com

username: es el usuario que se utilizará para autenticar contra el servidor y mandar el mensaje. Recuerda que es el mismo que creamos más arriba.

password: la contraseña de la cuenta de correo con la que nos a autenticaremos en el servidor (en el ejemplo: xxx)

Una vez que tenemos definido todos estos datos, el formulario quedaría de la siguiente manera:

'definición de variables
dim from,tto,subject,body,host,username,password
from = "contacto@tudominio.com"
tto = "tucasilla@tudominio.com.ar"
subject = "Contacto online"
body = " ...este mensaje ha sido enviado desde el sitio web"
host = "mail.tudominio.com"
username = "contacto@tudominio.com"
password = "tuclave"

Set myMail=CreateObject("CDO.Message")
myMail.From=from
myMail.To=tto
myMail.Subject=subject
myMail.TextBody=body
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False
'Servidor de envio
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = host
'Puerto de envio
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
'Tipo de autentificacion, NONE, Basic (Base64 encoded), NTLM
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
'Usuario
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusername") = username
'Clave
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendpassword") = password

'Envió del correo
myMail.Configuration.Fields.Update
myMail.Send
set myMail=nothing

Como podrás ver, es muy sencillo!

 

Si tenés algún comentario o duda, podés registrarte y escribirnos aquí abajo, o bien contactarte con Soporte Técnico desde el área de clientes.

Deja una respuesta