Dim messaggio As String = ""

            Smtp.LicenseKey = "<licenza>"

            Dim server As New SmtpServer
            server.AuthMethods = AuthenticationMethods.Auto
            server.SslProtocol = Security.SecurityProtocol.Auto
            server.SslMode = Security.SslStartupMode.OnConnect
            server.Port = 465
            server.AccountName = "<username>"
            server.Password = "<password>"
            server.Name = "smtps.pec.aruba.it"
            Dim nmess As Smtp = New Smtp
            nmess.SmtpServers.Add(server)

            nmess.Message.From = New MailBee.Mime.EmailAddress("<indirizzo mittente>", "<mittente>")
            nmess.Message.To = New MailBee.Mime.EmailAddressCollection(indirizzo)
            nmess.Message.Subject = oggetto
            nmess.Message.BodyHtmlText = testo
            nmess.Send()

            nmess.Message.From = New MailBee.Mime.EmailAddress("<indirizzo mittente>", "<mittente>")
            nmess.Message.To = New MailBee.Mime.EmailAddressCollection(emaildirterit)
            nmess.Message.Subject = "<oggetto>"
            nmess.Message.BodyHtmlText = messaggio
            nmess.Send()