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