Enviar e-mail desde una aplicación VB .NET

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

Para el ejemplo siguiente 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 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 ponemos la propiedad IsBodyHtml en True, podremos llenar el cuerpo con código HTML para que nuestro mensaje llegué con un mejor look.

Puedes bajar el ejemplo de Aca. Requisitos (Microsoft Visual Studio 2010)

Tags: , ,

Deja un comentario

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

*

Puedes usar las siguientes etiquetas y atributos HTML: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>

© VB-MUNDO – Visual Basic y mucho más
CyberChimps