2017-05-25 74 views
1

我使用的Visual Studio 2017年Visual Basic Web窗體。當我點擊提交時,沒有任何反應。沒有電子郵件發送。我怎麼知道出了什麼問題?

  • 雙重檢查憑據
  • 使用print.debug從here
  • 試圖嘗試打印到像this另一個文件說做 不知道怎麼回事弄清楚代碼爲什麼不起作用。

    <%@ Page Language="VB" aspcompat=true Debug="true" %> 
    <!DOCTYPE html> 
    
    <html xmlns="http://www.w3.org/1999/xhtml"> 
    <head runat="server"> 
        <title></title> 
    </head> 
    <body> 
        <form id="form1" runat="server"> 
         <div><p>From:&nbsp;<asp:TextBox ID="txtFromAdress" runat="server" Columns="35"></asp:TextBox></p> 
          <p>Subject:&nbsp;<asp:TextBox ID="txtSubject" runat="server" Columns="50"></asp:TextBox></p> 
          <p>Message:&nbsp;<asp:TextBox ID="txtBody" runat="server" Columns="76" TextMode="multiLine" Rows="6"></asp:TextBox></p> 
         <p><asp:Button ID="btnSend" runat="server" Text="Send Mail" /></p> 
         </div> 
        </form> 
    Debug.print txtFromAdress 
    Debug.print txtSubject 
    Debug.print txtBody 
    </body> 
    </html> 
    

這裏是後面的代碼:

<%@ Page Language="VB" aspcompat=true Debug="true" %> 

Imports System.Net.Mail 

Public Class WebForm1 

    Inherits System.Web.UI.Page 


    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load 

    End Sub 

    Protected Sub btnSend_Click(sender As Object, e As EventArgs) Handles btnSend.Click 
     Dim mail As New MailMessage() 
     mail.From = New MailAddress(txtFromAdress.Text.Trim) 
     mail.To.Add("[email protected]") 
     mail.Subject = txtSubject.Text.Trim() 
     mail.Body = txtBody.Text.Trim() 
     Debug.print mail 
     Dim SmtpClient As New SmtpClient("smtp.office365.com") 
     SmtpClient.UseDefaultCredentials = False 
     SmtpClient.EnableSsl = True 
     SmtpClient.Port = 587 
     SmtpClient.Credentials = New Net.NetworkCredential("[email protected]", "pword") 
     n = FreeFile() 
Open "root/test.txt" For Output As #n 
Print #n, mail 
     Try 
      SmtpClient.Send(mail) 
     Catch ex As Exception 
      MsgBox(Err.Number & vbNewLine & ex.Message) 
     End Try 
+0

刪除aspcompat = true並再次嘗試 –

+0

這樣做,但仍然沒有發生。 – badapaqadadap

回答

1

打開命令提示符,運行以下命令:

telnet smtp.office365.com 587 

有什麼反應?如果它產生所需的結果,那麼下載一個像Wireshark這樣的工具,以便分析請求和響應。

+0

'telnet'不被識別爲內部或外部命令, 可操作的程序或批處理文件。 – badapaqadadap

+0

按照以下說明確保安裝Telnet:https://kb.ctera.com/article/how-to-open-a-telnet-session-on-windows-7-or-windows-8-os-16 html的。一旦安裝,讓我知道結果。 – w0051977

+0

我跟我的部門談過。他們說它應該按原樣工作,並建議我嘗試用c#來做。所以我放棄了這個嘗試。感謝您的幫助。 – badapaqadadap

相關問題