Enviar Correo Electrónico desde Visual Basic utilizando SMTP Gmail

Código para enviar correo electrónico desde Visual Basic.Net utilizando SMTP de Gmail. Incluye proyecto para su descarga.


Publicado: Editado: Estado:

Cuando necesites enviar alguna información desde Visual Basic.Net a un correo electrónico, el siguiente ejemplo te puede servir. Lo que necesitas es agregar un Imports System.Net, agregar tres TextBox y un Button que son los principales controles que tienes añadir al proyecto.  

El código se concentra más en el button y se configura con SMTP de Gmail, tambien puedes utilizar una configuración personalizada.

Imports System.Net
Public Class frmCorreo

    Private Sub btnEnviar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEnviar.Click
        Dim Mensaje As New System.Net.Mail.MailMessage()
        Dim SMTP As New System.Net.Mail.SmtpClient

        'Configuración SMTP
        SMTP.Credentials = New System.Net.NetworkCredential("politecnia@gmail.com", "Politecnia14!")
        SMTP.Host = "smtp.gmail.com"
        SMTP.Port = 587
        SMTP.EnableSsl = True

        Mensaje.[To].Add(Me.txtPara.Text.ToString) 'Para
        Mensaje.From = New System.Net.Mail.MailAddress("info@politecnia.net", "Bienvenido", System.Text.Encoding.UTF8) 'Quien lo envía
        Mensaje.Subject = Me.txtAsunto.Text.ToString 'Asunto
        Mensaje.SubjectEncoding = System.Text.Encoding.UTF8 'Codificación
        Mensaje.Body = Me.txtMensaje.Text.ToString 'Mensaje
        Mensaje.BodyEncoding = System.Text.Encoding.UTF8
        Mensaje.Priority = System.Net.Mail.MailPriority.Normal
        Mensaje.IsBodyHtml = False

        'Enviar Correo Electrónico
        Try
            SMTP.Send(Mensaje)
            MessageBox.Show("Mensaje enviado correctamente", "Politecnia", MessageBoxButtons.OK)
        Catch ex As System.Net.Mail.SmtpException
            MessageBox.Show(ex.ToString, "Error!", MessageBoxButtons.OK)
        End Try
    End Sub
End Class

El código está más que claro, un ejemplo sencillo que puedes agregar otras cosas como adjuntar archivo o enviar a varios correos electrónicos, adjunto el archivo para su descarga listo para usarse, utilice Visual Studio 2010 que puedes abrir en Visual Basic 2012 (Descargar)

Bibliografía
  1. http://elrincondelprogramador.net/visual-basic-net-enviar-correo/
  2. http://stackoverflow.com/questions/6244694/send-smtp-email-using-system-net-mail-via-exchange-online-office-365
  3. Experimento
Dar puntos de agradecimiento
Reportar esta publicación

Déjanos tu comentario

Comentarios (2)

Has visto algún ejemplo para recibir, formatear y mostrar el correo de una cuenta por POP o IMAP. Sería interesante!!!

Si Visual Basic 6.0 lo podias hacer (http://goo.gl/vX2AgS), ahora con las nuevas tecnicas me imagino es más fácil seria en trabajar un ejemplo

mariogarcia

(Administrador)

Intereses

música, diseño, programación, electrónica, historia, geografía

Puntos: 146 Votos: 113