Cómo enviar un E-mail desde una aplicación Visual Basic .NET

Para enviar un correo desde una aplicación Windows en Visual Basic .NET utilizaremos la clase System.Net.Mail.MailMessage.

 

 

En el siguiente ejemplo vamos a crear un formulario, tres cajas de texto para escribir el correo hacia donde vamos enviar el correo, el Asunto y el Mensaje y dos botones para enviar el e-mail y otro para salir.

El siguiente código se pone en el botón enviar:

Dim _Message As New System.Net.Mail.MailMessage()
Dim _SMTP As New System.Net.Mail.SmtpClient
'CONFIGURACIÓN DEL STMP
_SMTP.Credentials = New System.Net.NetworkCredential("cuenta de correo", "contraseña")
_SMTP.Host = "smtp.gmail.com"
_SMTP.Port = 587
_SMTP.EnableSsl = True
' CONFIGURACION DEL MENSAJE
_Message.[To].Add(Me.txtPara.Text.ToString) 'Cuenta de Correo al que se le quiere enviar el e-mail
_Message.From = New System.Net.Mail.MailAddress("cuenta de correo", "nombre", System.Text.Encoding.UTF8) 'Quien lo envía
_Message.Subject = Me.txtAsunto.Text.ToString 'Sujeto del e-mail
_Message.SubjectEncoding = System.Text.Encoding.UTF8 'Codificacion
_Message.Body = Me.txtMensaje.Text.ToString 'contenido del mail
_Message.BodyEncoding = System.Text.Encoding.UTF8
_Message.Priority = System.Net.Mail.MailPriority.Normal
_Message.IsBodyHtml = False
'ENVIO
Try
_SMTP.Send(_Message)
MessageBox.Show("Mensaje enviado correctamene", "Exito!", MessageBoxButtons.OK)
Catch ex As System.Net.Mail.SmtpException
MessageBox.Show(ex.ToString, "Error!", MessageBoxButtons.OK)
End Try

 

Si ponen la propiedad IsBodyHtml en True, podrán llenar el cuerpo con código HTML para que el mensaje llegué con un mejor estilo.

Fuente: www.vb-mundo.com/enviar-e-mail-desde-una-aplicacion-vb-net/

Deja un comentario

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *