Torna al Thread
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("xxxx@xxxxxxx.biz")
Mail.From = New MailAddress(Me.TextBox4.Text)
Mail.Subject = "Richiesta preventivo"
Dim bodyMessage As String
bodyMessage = "IL sig. (la sig.ra) " & Me.TextBox2.Text & " " & Me.TextBox5.Text & Chr(10) & "Tel: " & Me.TextBox3.Text & " " & "Email: " & Me.TextBox4.Text & Chr(10) & _
"richiede un preventivo per la seguente tipologia: " & Me.DropDownList1.Text & " - " & Me.DropDownList2.Text & Chr(10) & Chr(10) & _
"contenuto della richiesta:" & Chr(10) & 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
REM Response.Redirect("~/confermaemail.aspx")
End Sub