Tutorial: ¿Cómo hacer un formulario para enviar mails con ASP.net VB?

Bienvenidos una vez más al blog de Baehost. Para culminar con esta serie de creación de formularios, veremos por último el ejemplo de uno de ellos en ASP.Net VB (Visual Basic)

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

Este ejemplo, al igual que el anterior, sirve para que corra en un página .aspx

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. Se usará para enviar los correos que se generen desde el formulario hacia la casilla que 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. 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 usaremos para autenticar contra el servidor y mandar el mensaje. Recuerda que es el mismo que creamos anteriormente.

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

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

@ Page Language="VB"
@ Import Namespace="System.Net.Mail"


Sub Page_Load(Sender As Object, E As EventArgs)

dim from,tto,subject,body,host,username,password
from = "online@dominio"
tto = " info@dominio"
subject = "Contacto online"
body = "Prueba..."
host = "mail.dominio"
username = "online@dominio"
password = "xxx"

Dim Message As MailMessage = New MailMessage()
Dim Smtp As New SmtpClient()
Dim SmtpUser As New System.Net.NetworkCredential()

Message.From = New MailAddress(from)
Message.To.Add(New MailAddress(tto))
Message.IsBodyHtml = False

Message.Subject = subject
Message.Body = body
SmtpUser.UserName = username
SmtpUser.Password = password

Smtp.UseDefaultCredentials = False
Smtp.Credentials = SmtpUser
Smtp.Host = host
Smtp.DeliveryMethod = SmtpDeliveryMethod.Network
Smtp.Send(Message)
End Sub

Como podrás ver, es realmente muy simple!

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.

Facebooktwittergoogle_pluslinkedinFacebooktwittergoogle_pluslinkedin

Deja un comentario