Visual Basic .NET: enviar correo

Si te ves en la necesidad de enviar correo usando visual basic .net, el siguiente ejemplo te puede servir de ayuda. Lo primero que hay que hacer es importar una librería a nuestro proyecto con la esta declaración:

Imports System.Web.Mail

La mayor parte de código se puede insertar en el evento click de un botón destinado a enviar el mensaje de correo. Fíjate en el siguiente código  y verás que no resulta difícil enviar correo con vb.net.

Imports System.Web.Mail
 
Public Class Formulario1

    Private Sub btnEnviarCorreo_Click(ByVal sender As System.Object, _
                                      ByVal e As System.EventArgs) Handles btnMail.Click

        Dim smtp As New System.Net.Mail.SmtpClient
        Dim correo As New System.Net.Mail.MailMessage
        Dim adjunto As System.Net.Mail.Attachment

        With smtp
            .Port = 25
            .Host = "smtp.elrincondelprogramador.net"
            .Credentials = New System.Net.NetworkCredential("usuario-smtp", "clave-smtp")
            .EnableSsl = False
        End With
        adjunto = New System.Net.Mail.Attachment("C:\Temp\Adjunto.pdf")
        With correo
            .From = New System.Net.Mail.MailAddress("mail@elrincondelprogramador.net")
            .To.Add("destinatario@sudominio.com")
            .Subject = "Asunto del correo"
            .Body = "<strong>Texto del mensaje de correo</strong>"
            .IsBodyHtml = True
            .Priority = System.Net.Mail.MailPriority.Normal
            .Attachments.Add(adjunto)
        End With

        Try
            smtp.Send(correo)
            MessageBox.Show("Su mensaje de correo ha sido enviado.", _
                            "Correo enviado", _
                             MessageBoxButtons.OK)
        Catch ex As Exception
            MessageBox.Show("Error: " & ex.Message, _
                            "Error al enviar correo", _
                             MessageBoxButtons.OK)
        End Try

    End Sub
   
End Class