如何使用 [傳送電子郵件訊息使用的 SMTP 連接埠,在 Visual Basic.NET 中的 [CDOSYS 程式庫

文章翻譯 文章翻譯
文章編號: 313775 - 檢視此文章適用的產品。
警告 在 ADO 和 ADO MD 有不被完全環境中測試 Microsoft.NET Framework。它們可能會導致間歇性問題,特別是在服務為基礎的應用程式或在多執行緒應用程式中。本文中討論的技術應該只用於為暫時的量值 ADO.NET 的移轉過程。之後您有進行完整的測試,以確定是沒有相容性問題,您應該只使用這些技巧。利用這種方式中的 ADO 或 ADO MD 造成的問題是不受支援。如需詳細資訊請參閱下列的 「 Microsoft 知識庫 」 中的文件:
840667 在.NET Framework 應用程式中使用 ADO 和 ADO MD 時,您會收到未預期的錯誤
全部展開 | 全部摺疊

結論

本文將告訴您,如何使用 Windows 2000 (CDOSYS) 程式庫的共同作業資料物件 (CDO) 來使用簡易郵件傳送通訊協定 (SMTP) 連接埠,Microsoft Visual Basic.NET 中的傳送電子郵件訊息。

其他相關資訊

如果要使用的 SMTP 連接埠傳送電子郵件,請依照下列步驟執行:
  1. 啟動 Microsoft Visual Studio.NET。
  2. 在 [檔案] 功能表上指向 [新增],然後按一下 [專案]。
  3. Visual Basic 專案類型] 清單中,按一下 [主控台應用程式]。

    預設情況下,會建立 Module1.vb 檔案。
  4. 將參考加入至 [Microsoft CDO 對於 Windows 2000 庫。如果要執行這項操作,請依照下列步驟執行:
    1. 在 [專案] 功能表上按一下 [加入參考]。
    2. 按一下 [COM] 索引標籤,找出 Microsoft CDO 對於 Windows 2000 櫃,然後再按一下 [選取
    3. 在 [加入參考] 對話方塊中,按一下 [確定]
    4. 提示您產生您所選取的程式庫的包裝函式時,按一下 [是]
  5. 重複步驟 4,以新增 「 Microsoft ActiveX 資料物件 2.5 程式庫的參考。
  6. 在 [程式碼] 視窗以下列取代程式碼:
    Imports System.Reflection
    
    Module Module1
    
        Sub Main()
            Dim oMsg As CDO.Message = New CDO.Message()
            Dim iConfg As CDO.Configuration
            Dim oFields As ADODB.Fields
            Dim oField As ADODB.Field
     
            iConfg = oMsg.Configuration
            oFields = iConfg.Fields
    
            oField = oFields("http://schemas.microsoft.com/cdo/configuration/sendusing")
            oField.Value = CDO.CdoSendUsing.cdoSendUsingPort
    
           ' TODO: Replace with the port that you want to use . It must be the same
           ' port that the SMTP server is using.
           oField = oFields("http://schemas.microsoft.com/cdo/configuration/smtpserverport")
            oField.Value = 25
    
            ' TODO: Replace with your SMTP server.
            oField = oFields("http://schemas.microsoft.com/cdo/configuration/smtpserver")
            oField.Value = "<SMTP Server>"
    
            oFields.Update()
            oMsg.Configuration = iConfg
    
            oMsg.TextBody = "Test message body."
            oMsg.Subject = "Test SMTP Message Send using port"
            oMsg.From = "from@example.com"
            oMsg.To = "to@example.com"
    
            oMsg.Send()
    
            oMsg = Nothing
            iConfg = Nothing
            oFields = Nothing
            oField = Nothing
        End Sub
    
    End Module
    					
  7. 在程式碼中搜尋 TODO 並再修改您的環境的程式碼。
  8. 按下 F5 以建置並執行程式。
  9. 請確定電子郵件已傳送,而且收到。

屬性

文章編號: 313775 - 上次校閱: 2007年11月29日 - 版次: 3.2
這篇文章中的資訊適用於:
  • Microsoft ActiveX Data Objects 2.5
  • Microsoft Collaboration Data Objects 2.0
  • Microsoft Visual Basic .NET 2003 Standard Edition
  • Microsoft Visual Basic .NET 2002 Standard Edition
關鍵字:?
kbmt kbhowto kbcode kbxml kbmsg KB313775 KbMtzh
機器翻譯
重要:本文是以 Microsoft 機器翻譯軟體翻譯而成,而非使用人工翻譯而成。Microsoft 同時提供使用者人工翻譯及機器翻譯兩個版本的文章,讓使用者可以依其使用語言使用知識庫中的所有文章。但是,機器翻譯的文章可能不盡完美。這些文章中也可能出現拼字、語意或文法上的錯誤,就像外國人在使用本國語言時可能發生的錯誤。Microsoft 不為內容的翻譯錯誤或客戶對該內容的使用所產生的任何錯誤或損害負責。Microsoft也同時將不斷地就機器翻譯軟體進行更新。
按一下這裡查看此文章的英文版本:313775
Microsoft及(或)其供應商不就任何在本伺服器上發表的文字資料及其相關圖表資訊的恰當性作任何承諾。所有文字資料及其相關圖表均以「現狀」供應,不負任何擔保責任。Microsoft及(或)其供應商謹此聲明,不負任何對與此資訊有關之擔保責任,包括關於適售性、適用於某一特定用途、權利或不侵權的明示或默示擔保責任。Microsoft及(或)其供應商無論如何不對因或與使用本伺服器上資訊或與資訊的實行有關而引起的契約、過失或其他侵權行為之訴訟中的特別的、間接的、衍生性的損害或任何因使用而喪失所導致的之損害、資料或利潤負任何責任。

提供意見

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com