En muchas ocasiones no queremos utilizar nuestro servidor para enviar correos por lo que recurrimos a nuestro viejo amigo google.

He aqui como enviar un correo utilizando una cuenta de gmail:

Solución:

Imports System.Net.Mail ‘referencia

Public Sub enviar_mail(ByVal i_de As String, ByVal i_para As String, ByVal asunto As String, ByVal mensaje As String)

Dim insMail As New MailMessage(New MailAddress(i_de), New MailAddress(i_para))
With insMail

.Subject = asunto
.IsBodyHtml = True ‘envia el mensaje como html
.Body = mensaje
.From = New MailAddress(i_de)
.ReplyTo = New MailAddress(i_de)

End With
Dim smtp As New System.Net.Mail.SmtpClient
smtp.Host = “smtp.gmail.com”
smtp.Port = 587
smtp.EnableSsl = True
smtp.UseDefaultCredentials = False
smtp.Credentials = New System.Net.NetworkCredential(“cuentagmail”, “contraseñagmail”)

smtp.Send(insMail)

End Sub