Sito Web ASP.net 3.5 tramite ASP: Wizard Wizard e SMTPClient non inviano e-mail

Question

Ho un asp: controllo Wizard su un sito che esegue Framework 3.5. Ho acquisito le impostazioni dall'host web e le ho inserite nell'Utilità di configurazione Web. Ecco il codice dietro il file:

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

Fine classe

Il codice non risponde senza errori. Quando viene caricata sull'account di hosting condiviso, la pagina viene caricata e il codice consente all'utente di inserire informazioni nella procedura guidata. Tuttavia, il pulsante Fine non attiva il passaggio finale. Ecco il codice per l'ultimo passaggio della procedura guidata:

<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>

Non riesco a determinare cosa sta causando questo problema. Qualcuno può indirizzarmi su possibili cause?

Grazie, Sid

Answer 1

Hai impostato dei punti di interruzione all'interno del codice per vedere se il codice per inviare la posta viene effettivamente raggiunto? Ad esempio, suggerirei di impostare i punti di interruzione almeno nel modo seguente:

Per verificare che l'evento FinishButtonClick sia attivo.

Dim mySMTPClient As New SmtpClient()

Per verificare che il codice Sendmail sia stato colpito.

mySMTPClient.Send(myMail)

Per verificare se si verificano eccezioni.

Dim ex2 As Exception = ex

Inoltre, ci sono almeno un paio di altre cose da cercare.

1. Il server SMTP potrebbe non essere configurato o configurato correttamente.

2. Anche se il server SMTP è configurato correttamente, si desidera assicurarsi che il proprio firewall (o ISP) non blocchi l'invio di posta SMTP.