Dim objMail, Config
        objMail = HttpContext.Current.Server.CreateObject("CDO.Message")
        ' creiamo un oggetto di configurazione
        Config = HttpContext.Current.Server.CreateObject("CDO.Configuration")
        ' configuro il server smtp mail.macnil.it
        With Config
            .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.xxxxx.it"
            .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
            .Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
            .Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
            .Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "yyyy@yyyy.it"
            .Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "ppppp"
            .Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
            .Fields.Update()
        End With
        objMail.Configuration = Config 
        objMail.From = "yyyy@yyyy.it"
        objMail.To = "emailTo@emailTo.it"
        objMail.Bcc = "emailBcc@emailBcc.it"
        objMail.Subject = "Richiedi Demo"
        objMail.HtmlBody = Message
        Try
            objMail.send()
        Catch Err As Exception
            Exit Function
        End Try