如何使用catch |请在以下代码中阻止？当表单字段完成并按下发送按钮时，没有任何反应。无论在这些领域输入的是什么，都只是留在那里。
Private Sub SendEmail_Click(sender As Object, e As System.EventArgs) Handles
SendEmail.Click
Dim myMessage As New MailMessage
Dim Smtpserver As New SmtpClient
Dim user_name As String = Request.Form("your_name") 'user_name is the
TextBox ID
Dim user_email As String = Request.Form("your_email") 'user_email is the
TextBox ID
Dim user_subject As String = Request.Form("your_subject") 'user_subject is
the TextBox ID
Dim user_message As String = Request.Form("your_message") 'user_message is
the TextBox ID
'Request.Form - extract data from form fields and create the mail message
myMessage.From = New MailAddress(user_email) 'User's email
myMessage.To.Add(New MailAddress("myEmail1@Mail.Com")) 'Webmaster
myMessage.CC.Add(New MailAddress("myEmail2@Mail.com")) 'Webmaster's
assistant
myMessage.Subject = user_subject
myMessage.Body = user_message
myMessage.DeliveryNotificationOptions =
DeliveryNotificationOptions.OnFailure
myMessage.IsBodyHtml = True
myMessage.Priority = MailPriority.High
Smtpserver.DeliveryMethod = SmtpDeliveryMethod.Network
Smtpserver.Host = ("IP_add")
Smtpserver.Port = 25
Smtpserver.EnableSsl = False
Dim basicAuthenticationInfo As New
System.Net.NetworkCredential("info@myPage.net", "Pwd")
Smtpserver.Credentials = basicAuthenticationInfo
'Smtpserver.UseDefaultCredentials = False
Smtpserver.Send(myMessage)
myMessage.Dispose()
myMessage = Nothing\
Smtpserver = Nothing
pnlFormFields.Visible = False
pnlThankYouMessage.Visible = True
End Sub