как настроить параметры smtp - PullRequest
0 голосов
/ 17 июня 2011
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? Я не могу отправить электронную почту. Пожалуйста, помогите мне.

1 Ответ

2 голосов
/ 17 июня 2011

вы не можете отправить письмо, потому что команда отправки закомментирована.так как вы не даете больше подробностей или лучшего объяснения или сообщения об исключениях, это единственное, что я могу предположить.

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...