ASP.net 3.5网站使用ASP:向导控制和SMTPClient不发送电子邮件
-
07-07-2019 - |
题
我在运行Framework 3.5的站点上有一个asp:Wizard控件。我从Web主机获取了设置,并将它们输入到Web配置实用程序中。这是文件背后的代码:
Protected Sub Wizard1_FinishButtonClick(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.WizardNavigationEventArgs) Handles Wizard1.FinishButtonClick
Dim mySMTPClient As New SmtpClient()
Dim sb As New StringBuilder
Dim myMail As New MailMessage("webmaster@mydomain.com", "user@mydomain.com")
Dim myFrom As New MailAddress("webmaster@mydomain.com")
Dim myTo As New MailAddress("user@anotherdomain.com")
myMail.BodyEncoding = System.Text.Encoding.UTF8
myMail.IsBodyHtml = False
myMail.To.Add(myTo)
myMail.Subject = "Request for Information"
sb.Append("Contact Name: ")
sb.Append(txtcontactname.Text)
sb.Append("<br/>Phone Number: ")
sb.Append(txtcontactphone.Text)
sb.Append("<br/>Employer Name: ")
sb.Append(txtemployername.Text)
sb.Append("<br/>City: ")
sb.Append(txtcity.Text)
sb.Append("<br/>State: ")
sb.Append(cmbstate.Text)
sb.Append("<br/>Zip: ")
sb.Append(txtzip.Text)
sb.Append("<br/>Other Location: ")
sb.Append(txtotherloc.Text)
sb.Append("<br/>Nature of Business: ")
sb.Append(txtbusnat.Text)
sb.Append("<br/>Eligible Employees: ")
sb.Append(txteligemps.Text)
sb.Append("<br/>Average Employee Turnover Per Year: ")
sb.Append(txtempturnover.Text)
sb.Append("<br/>Broker Name: ")
sb.Append(txtbrokername.Text)
sb.Append("<br/>Broker Email: ")
sb.Append(txtbrokeremail.Text)
sb.Append("<br/>Proposed Effective Date: ")
sb.Append(txteffdate.SelectedDate)
sb.Append("<br/>Limited Benefit Medical Plans: ")
For Each item As ListItem In chkmedplans.Items
If (item.Selected) Then
sb.Append(item.Text)
sb.Append(" ")
End If
Next
sb.Append("<br/>Voluntary Products/Services: ")
For Each item As ListItem In chkvolserv.Items
If (item.Selected) Then
sb.Append(item.Text)
sb.Append(" ")
End If
Next
sb.Append("<br/>Employer Paid Products/Services: ")
For Each item As ListItem In chkempserv.Items
If (item.Selected) Then
sb.Append(item.Text)
sb.Append(" ")
End If
Next
sb.Append("<br/>Preferred Benefit Enrollment Program(s): ")
For Each item As ListItem In chkenrolprog.Items
If (item.Selected) Then
sb.Append(item.Text)
sb.Append(" ")
End If
Next
sb.Append("<br/>Comments: ")
sb.Append(txtcomments.Text)
myMail.Body = sb.ToString()
Try
mySMTPClient.Send(myMail)
Catch ex As Exception
Dim ex2 As Exception = ex
Dim errorMessage As String = String.Empty
While Not (ex2 Is Nothing)
errorMessage += ex2.ToString()
ex2 = ex2.InnerException
End While
Response.Write(errorMessage)
End Try
End Sub
结束班
代码不符合错误。加载到共享主机帐户时,页面加载,代码允许用户在向导中输入信息。但是,“完成”按钮不会触发最后一步。这是最终向导步骤的代码:
<asp:WizardStep ID="WizardStep4" runat="server" StepType="Complete" Title="Complete">
Thank you for your inquiry. A member of our staff will contact you regarding your request.</asp:WizardStep>
我无法确定是什么解决了这个问题。有人可以指导我可能的原因吗?
谢谢, SID
解决方案
您是否在代码中设置断点以查看是否实际发送了发送邮件的代码?例如,我建议您至少在以下位置设置断点:
验证FinishButtonClick事件是否正在触发。
Dim mySMTPClient As New SmtpClient()
验证Sendmail代码是否被命中。
mySMTPClient.Send(myMail)
查看是否发生任何异常。
Dim ex2 As Exception = ex
此外,至少还有其他一些需要注意的事项。
-
可能未配置或正确配置SMTP服务器。
-
即使正确配置了SMTP服务器,也要确保您的防火墙(或您的ISP)没有阻止发送SMTP邮件。
醇>
不隶属于 StackOverflow