Question

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

Answer 1

可能是：

您的进程未通过邮件服务器验证
端口25未打开

Answer 2

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

client.Credentials = New Net.NetworkCredential("foo@bar.com", "this_is_a_password")
client.Port = 25

Answer 3

如果Sender对象上没有MailMessage，有些内容将无法投放。您还需要在Port对象上指定Credencials和SmtpClient。

这个电子邮件为什么不发送/到达？

3 个答案: