Inviare una mail con VB.NET utilizzando Gmail SMTP

Attraverso le funzioni System.Net.Mail messe a disposizione dal .NET Framework è possibile inviare una mail attraverso i server Gmail con poche righe di codice.

Di seguito la classe completa:

Imports System.Net.Mail

Public Class MailSender

    Public Sub SendEmail()
		'imposta destinatario
        Dim sendTo As New MailAddress("destinatario@dominio.com")
		'imposta mittente
        Dim from As MailAddress = New MailAddress("mittente@dominio.com")
		'istanzia l'oggetto MailMessage
        Dim message As New MailMessage(from, sendTo)
		'campi del messaggio
        message.IsBodyHtml = True
        message.Subject = "Oggetto del messaggio"
        message.Body = "Messaggio <b>HTML</b>"
        'credenziali di accesso
        Dim basicAuthenticationInfo As New System.Net.NetworkCredential("username@gmail.com", "password")
        'imposta connesione con il server GMAIL
        Dim SMTPServer As New SmtpClient("smtp.gmail.com")
        SMTPServer.UseDefaultCredentials = False
        SMTPServer.Port = 587
        SMTPServer.Credentials = basicAuthenticationInfo
        SMTPServer.EnableSsl = True
		'invio della mail
        Try
            SMTPServer.Send(message)
        Catch ex As Exception
			'azioni da eseguire in caso di errore
        End Try
    End Sub

End Class