Dim messaggio As String = "

            Dim newMail As System.Web.Mail.MailMessage = New System.Web.Mail.MailMessage()

            newMail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpserver", "smtps.pec.aruba.it")
            newMail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpserverport", "465")
            newMail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendusing", "2")
            newMail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate", "1")
            newMail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendusername", "<username>")
            newMail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendpassword", "<password>")
            newMail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpusessl", "true")

            newMail.From = "<mittente>"
            newMail.To = indirizzo
            newMail.Subject = oggetto
            newMail.BodyFormat = System.Web.Mail.MailFormat.Text
            newMail.Body = testo
            System.Web.Mail.SmtpMail.SmtpServer = "smtps.pec.aruba.it:465"
            System.Web.Mail.SmtpMail.Send(newMail)

            newMail.To = emaildirterit
            newMail.Subject = "<oggetto>"
            newMail.BodyFormat = System.Web.Mail.MailFormat.Html
            newMail.Body = messaggio
            System.Web.Mail.SmtpMail.SmtpServer = "smtps.pec.aruba.it:465"
            System.Web.Mail.SmtpMail.Send(newMail)