[Visual Basic] Envío de correos a Gmail/Hotmail

 

Bueno, a petición de algunos por correo os traigo este tutorial de como crear una aplicación que sirva para enviar correos, ya sea para Gmail, o Hotmail.

Yo recomiendo usar Gmail, ya que en hotmail, tienen un filtro para evitar ataques Spam de programas de empresas, y entonces el correo enviado casi nunca llega.

  

Imports System.Net.Mail

Public Class Form1

    Dim message As New MailMessage

    Dim smtp As New SmtpClient

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        message.From = New MailAddress (TextBox1.Text)

        message.To.Add (TextBox3.Text)

        message.Body = TextBox5.Text

        message.Subject = TextBox4.Text

        message.Priority = MailPriority.Normal

        smtp.EnableSsl = True

        smtp.Port = "587"

        smtp.Host = "smtp.gmail.com"

        smtp.Credentials = New Net.NetworkCredential(TextBox1.Text,  TextBox2.Text )

        smtp.Send(message)

    End Sub

End Class