Question

Imports System.Net.Mail

Partial Class ContactUs
    Inherits System.Web.UI.Page
    Protected Sub LinkButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles LinkButton1.Click
        Dim username = User.Identity.Name.ToString
        Response.Redirect("~/ViewCart_aspx/ViewCart.aspx?userID=" & username)
    End Sub
    Protected Sub CustomValidator1_ServerValidate(ByVal source As Object, ByVal args As System.Web.UI.WebControls.ServerValidateEventArgs) Handles CustomValidator1.ServerValidate
        If txtComments.Text.Length > 200 Then
            args.IsValid = False
        Else
            args.IsValid = True
        End If
    End Sub

    Protected Sub WizardStep3_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles WizardStep3.Load
        lblName.text = txtName.Text
        lblEmail.Text = txtEmail.Text
        lblComments.Text = txtComments.Text
        lblRating.Text = txtRatings.Text
    End Sub
    Protected Sub Wizard1_FinishButtonClick(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.WizardNavigationEventArgs) Handles Wizard1.FinishButtonClick
        SendMail(txtEmail.Text, txtComments.Text)
        'MsgBox("Feedback Sent")
        Response.Redirect("homepage_aspx/homepage.aspx")

    End Sub

    Private Sub SendMail(ByVal from As String, ByVal body As String)

        Dim mMailSettings As System.Net.Configuration.MailSettingsSectionGroup

        Dim mPort As Integer = mMailSettings.Smtp.Network.Port
        Dim mHost As String = mMailSettings.Smtp.Network.Host
        Dim mPassword As String = mMailSettings.Smtp.Network.Password
        Dim mUsername As String = mMailSettings.Smtp.Network.UserName
        'Dim mailServerName As String = "smtp.tricedeals.com"
        'Dim message As MailMessage = New MailMessage(from, "admin@tricedeals.com", "feedback", body)
        'Dim mailClient As SmtpClient = New SmtpClient

        'mailClient.Host = mailServerName
        'mailClient.Send(message)
        'message.Dispose()
    End Sub

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Response.Cache.SetCacheability(HttpCacheability.NoCache)
    End Sub
End Class

我的smtp设置有什么问题？我无法发送电子邮件。请帮助我。

Answer 1

您无法发送电子邮件，因为发送命令已被注释掉。因为你没有提供更多的细节或更好的解释或异常信息，这是我唯一可以假设的。

如何配置smtp设置

1 个答案: