Dim msg As New System.Net.Mail.MailMessage
                    msg.DeliveryNotificationOptions = Net.Mail.DeliveryNotificationOptions.OnFailure
                    msg.Subject = Oggetto.Text
                    msg.IsBodyHtml = True
                    msg.Body = TestoMail.Text
                    msg.Bcc.Add(destinatari.Text)
                    msg.From = New System.Net.Mail.MailAddress(Mittente.Text)
                    Dim client As System.Net.Mail.SmtpClient = New System.Net.Mail.SmtpClient("out.alice.it")
                    client.Timeout = 300000
                    client.Send(msg)