1

我是 VB 的新手，但我在网上寻找了一些片段。这就是我发现的，一切都编译好了，并且电子邮件地址是正确的，但我得到“服务不可用，正在关闭传输通道。服务器响应是：（空白）”。注意：我在那里放了一个虚拟电子邮件。

    'Check the humanity of the submitter 
    If strhumanity = "Aggies" Then
        ' Send Email
        Using message As New MailMessage()
            message.From = New MailAddress(ourEmail.ToString())
            message.[To].Add(New MailAddress("sephoroth@yahoo.com"))    'Change back to gerald's email
            message.Subject = "Ecampus Isses"
            message.Body = body
            Dim client As New SmtpClient()
            client.Host = "eforms.tamug.edu"   'Change back
            client.Send(message)
            Server.Transfer("ThankYou.aspx", True)
        End Using

    Else
        Response.Write("You do not seem to be human. Try again.")
        'exit
    End If
4

3 回答 3

1

可能：

  • 您的进程未通过邮件服务器的身份验证
  • 25端口未打开
于 2013-10-18T14:32:00.607 回答
1

你的 SmtpClient() 需要这样的东西。编辑：端口也需要指定。

client.Credentials = New Net.NetworkCredential("foo@bar.com", "this_is_a_password")
client.Port = 25
于 2013-10-18T14:32:02.587 回答
1

Sender如果对象上没有 a，有些将不会交付MailMessage。您还需要在对象上指定Portand 。CredencialsSmtpClient

于 2013-10-18T14:35:01.920 回答