Inviare email in VB.NET

Per inviare email in VB.NET non abbiamo bisogno di librerie esterne, ci basta importare questo:

Imports System.Net.Mail

Qui sotto c'è un esempio di codice che usa Gmail per l'invio.

Ovviamente potete usare anche altre caselle email; inoltre il mio codice è inserito in una pagina Asp.NET.

Comunque la sostanza non cambia:

    Private Sub inviaEmail(ByVal addTo As String, ByVal subj As String, ByVal msg As String)
        Try
            Dim emailFrom As String = "CASELLA_EMAIL"
            Dim emailPwd As String = "PASSWORD"
            Dim smtpHost As String = "smtp.gmail.com"
            Dim port As Integer = 587

            Dim mm As New MailMessage()
            mm.To.Add(addTo)
            mm.Subject = subj
            mm.Body = msg
            mm.From = New MailAddress(emailFrom, "Email From")

            Dim smtp As New SmtpClient(smtpHost, port)
            smtp.EnableSsl = True
            smtp.UseDefaultCredentials = False
            smtp.Credentials = New Net.NetworkCredential(emailFrom, emailPwd)
            smtp.Send(mm)
            Response.Redirect("Default.aspx")
        Catch ex As SmtpException
            Diagnostics.Debug.WriteLine(ex.Message)
        Catch ex As Exception
            Diagnostics.Debug.WriteLine(ex.Message)
        End Try

    End Sub

Enjoy!