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/