Enviar emails con Visual Basic

Hola en este sencillo ejemplo enviaremos un email con las credenciales de gmail, aqui las capturas de la aplicacion:

Diseñamos un formulario parecido a este

y el resultado...


El codigo de la aplicacion:

Imports System.Net.Mail 'Libreria para el envio de emails
Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles enviar.Click
'creamos un nuevo mensaje de correo
Dim correo As New MailMessage
'De
correo.From = New MailAddress(Me.from.Text)
'Para
correo.To.Add(Me.ToAddress.Text)
'Asunto
correo.Subject = Subject.Text
'Cuerpo del correo
correo.Body = Body.Text
'Mostrar como HTML
correo.IsBodyHtml = False
'Prioridad de el correo
correo.Priority = MailPriority.Normal
'Usaremos por default a gmail y su puerto SMTP
Dim smtp As New SmtpClient()
smtp.Host = "smtp.gmail.com"
smtp.Port = 587
smtp.Credentials = New System.Net.NetworkCredential("cuenta@gmail.com", "password")
smtp.EnableSsl = True
Try
'enviamos el correo
smtp.Send(correo)
MsgBox("Mensaje enviado satisfactoriamente", MsgBoxStyle.Information, "Envio de Emails")
Catch ex As Exception
MsgBox("Ocurrio el siguiente Error:" & ex.Message, MsgBoxStyle.Critical, "Envio de Emails")
End Try
End Sub
End Class

Como observaran es necesario contar con credenciales reales de gmail, despues lo haremos con cualquier otra cuenta, Saludos!!!