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
Copyright © dotNetHell.it 2002-2024
Running on Windows Server 2008 R2 Standard, SQL Server 2012 & ASP.NET 3.5