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

我是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("[email protected]")) '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

来源

2013-10-18 NickG

SMTP服务器是否需要验证？它是否有允许的服务器的白名单？你的服务器在那个列表上？ –

你'使用'应该在smtp客户端上，而不是邮件消息。您还没有将凭据传递给该主机，它是否允许匿名邮件设置为内部Exchange？您还应该在您的smtp客户端上设置Delivery Method属性。 – James

可能是：

你的过程不被验证以邮件服务器
25端口不开

来源

2013-10-18 14:32:00

你需要像这样为您SmtpClient（）。编辑：端口也需要指定。

client.Credentials = New Net.NetworkCredential("[email protected]", "this_is_a_password") 
client.Port = 25

来源

2013-10-18 14:32:02 Quannt

如果没有在MailMessage对象的Sender有些不给。您还需要在SmtpClient对象上指定Port和Credencials。

来源

2013-10-18 14:35:01 OneFineDay

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

回答

相关问题