Imports System.Net.Mail
                
                'inserisco il valore delle mail in lavorazione
                LabelInviate.Text = x.ToString
                'Queste sono le variabili 
                Dim smtpServer As New SmtpClient()
                Dim mail As New MailMessage()
                'Qui inserisci le credenziali per accedere al nostro servizio di posta
                smtpServer.Credentials = New Net.NetworkCredential(My.Settings.Mail.ToString, TextBoxPw.Text)
                'porta smtp
                smtpServer.Port = My.Settings.SmtpPort.ToString
                'smtp host
                smtpServer.Host = My.Settings.Smtp.ToString
                'imposto ssl
                smtpServer.EnableSsl = My.Settings.MailSsl.ToString
                'Creiamo la mail da spedire
                mail = New MailMessage()
                'Inserisci l'indirizzo di posta che verrà visualizzato dal destinatario
                mail.From = New MailAddress(My.Settings.Mail.ToString)
                'Inserisci l'email del destinatario
                mail.To.Add(ListBoxDestinatari.Items.Item(0).ToString)
                'pulico la text box destinatario e inserisco il nuovo
                TextBoxDestinatari.Text = ListBoxDestinatari.Items.Item(0).ToString
                'Inserisci l'oggetto
                mail.Subject = TextBoxOggetto.Text
                'Qui metti il testo dell'email (es. Textbox1.text + ControlChars.CrLf, ovvero il contenuto della textbox + andare a capo)
                mail.Body = TextBoxCorpo.Text
                'invio la mail 
                smtpServer.Send(mail)