Imports System.Net.Mail
Imports System.Net

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Crea un nuovo oggetto messaggio
        Dim myMail As New MailMessage()
        'Imposta mittente e destinatario
        myMail.From = New MailAddress("mittente@dominio.it")
        myMail.To.Add("ricevente@dominio.it")
        'Imposta l'oggetto
        myMail.Subject = "Oggetto"
        'Imposta la priorità
        myMail.Priority = MailPriority.Normal
        'Imposta il testo
        myMail.Body = "corpo del messaggio"
        'Crea un nuovo oggetto 'allegato', specificando il percorso e il tipo di codifica
        Dim Smtp As New SmtpClient("out.alice.it")
        'Imposta il server di posta da utilizzare
        'Invia l'e-mail
        Smtp.Send(myMail)
    End Sub
End Class