Función en VB.Net para enviar correo con una cuenta GMAIL a traves de SSL con Smtp.Client

Es comun que tras encontrar alguna excepcion en tu codigo requieras enviar un aviso, o simplemente necesites contar con una notificación via correo electronico del status de algun proceso, esta es una funcion que puede ayudarte si es el caso!

Sub envia_correo(ByVal origen As String, ByVal destino As String, ByVal subject As String, ByVal mensaje As String)

        Dim SmtpObj As New System.Net.Mail.SmtpClient

        Dim MailNachricht As New System.Net.Mail.MailMessage()

        'Esta linea la lleva solo si requiere autenticacion

        SmtpObj.Credentials = New System.Net.NetworkCredential("usuario@gmail.com", "tupassword")

        'en caso de que el servidor requiera SSL, se coloca en true

        SmtpObj.EnableSsl = True

        'Este es un puerto para SSL, si no lleva el puerto puede ser 25

        SmtpObj.Port = 465

        'Direccion del servidor SMTP ( para enviar correo)

        SmtpObj.Host = "smtp.gmail.com"

        'Aqui  formamos el mensaje con los parametros que nos envien, y la codificacion en UTF8

        With MailNachricht

            .From = New System.Net.Mail.MailAddress(origen)

            .BodyEncoding = System.Text.Encoding.UTF8

            .To.Add(destino)

            .Subject = subject

            .IsBodyHtml = False

            .Body = mensaje

        End With

        MailNachricht.Attachments.Clear()

        Try

            'Envio del mensaje

            SmtpObj.Send(MailNachricht)

        Catch ex As Exception

            'Si hay alguna excepcion aqui se toma! ( Algun error)

        End Try

    End Sub

espero que sea de utilidad!

att:pbm