2013-10-18 131 views
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("[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 
+1

SMTP服務器是否需要驗證?它是否有允許的服務器的白名單?你的服務器在那個列表上? –

+0

你'使用'應該在smtp客戶端上,而不是郵件消息。您還沒有將憑據傳遞給該主機,它是否允許匿名郵件設置爲內​​部Exchange?您還應該在您的smtp客戶端上設置Delivery Method屬性。 – James

回答

1

可能是:

  • 你的過程不被驗證以郵件服務器
  • 25端口不開
1

你需要像這樣爲您SmtpClient()。 編輯:端口也需要指定。

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

如果沒有在MailMessage對象的Sender有些不給。您還需要在SmtpClient對象上指定PortCredencials

相關問題