Protected Sub Button1_Click(sender As Object, e As System.EventArgs) Handles Button1.Click
        Try
            If Me.TextBox2.Text = String.Empty Then
                Page.RegisterStartupScript("ScriptDescription", "<script type=""text/javascript"">alert('Attenzione i campi email e/o telefono devono essere compilati');</script>")
                Return
            End If
            Dim Mail As MailMessage = New MailMessage()

            Mail.To.Add("xxx@alice.it")

            Mail.From = New MailAddress(Me.TextBox4.Text)

            Mail.Subject = "Richiesta preventivo"

            Dim bodyMessage As String

            bodyMessage = Me.TextBox1.Text
            Mail.Body = bodyMessage

            Dim oSmtp As SmtpClient = New SmtpClient("out.alice.it")

            oSmtp.Send(Mail)
        Catch ex As Exception
            Page.RegisterStartupScript("ScriptDescription", "<script type=""text/javascript"">alert('Errore nell'invio dell'email');</script>")
        End Try
     End Sub