Imports System.Net.Mail

Dim objSmtpMail As System.Net.Mail.SmtpClient       ' variabile generale per l'invio dell'email

Dim Attachment As System.Net.Mail.Attachment        ' variabile per salvare gli allegati

Dim Mailmsg As New System.Net.Mail.MailMessage()    ' variabile per creare il corpo del messaggio

Private _displayname As String = ""                 ' variabile che contiene il nome dell'email da visualizzare

Private _from As String = ""                        ' variabile con l'indirizzo email da cui spedire

Private _smtpserver As String = ""                  ' variabile contenente l'indirizzo del server mail

Public Sub SendEmail()

   ' imposta le proprietà del server

   objSmtpMail = New System.Net.Mail.SmtpClient(_smtpserver)

   ' definisce il mittente 

   ' (primo parametro l'indirizzo email, secondo il nome che deve apparire all'utente che riceve l'email)

   Mailmsg.From = New System.Net.Mail.MailAddress(_from, _displayname)

   ' per specificare indirizzi multipli separare uno dall'altro con il ;

   Mailmsg.To.Add(New System.Net.Mail.MailAddress(Me.txtTo.Text.Trim))

   ' specifica formato

   If Me.tsbHTML.Checked = True Then

      ' spedisce l'email in formato HTML

      Mailmsg.IsBodyHtml = True

   Else

      Mailmsg.IsBodyHtml = False

   End If

   ' aggiunge degli header all'email che consentono di ricevere la conferma di lettura

   Mailmsg.Headers.Add("Reply-To", Mailmsg.From.Address)

   Mailmsg.Headers.Add("Disposition-Notification-To", Mailmsg.From.Address)

   Mailmsg.Headers.Add("Return-Receipt-To", Mailmsg.From.Address)

   ' aggiunge il testo

   Mailmsg.Subject = txtSubject.Text

   Mailmsg.Body = txtMessage.Text

   ' aggiunte gli allegati

   For Counter = 0 To lstAttachment.Items.Count - 1

      Attachment = New System.Net.Mail.Attachment(lstAttachment.Items(Counter))

      Mailmsg.Attachments.Add(Attachment)

   Next

   ' spedisce effettivamente l'email

   objSmtpMail.Send(Mailmsg)

End Sub