如何使用 Visual Basic.NET CDOSYS 和本機 SMTP 目錄傳送電子郵件訊息

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

結論

本文將告訴您,如何使用 Microsoft Windows 2000 文件庫和本機 SMTP 目錄的共同作業資料物件 (CDO) 來使用 Microsoft Visual Basic.NET 傳送 HTML 電子郵件訊息。 您必須在執行,才能傳送電子郵件的 SMTP 服務的伺服器上執行這個範例。

其他相關資訊

  1. 啟動 Microsoft Visual Studio.NET。
  2. 在 [檔案] 功能表上指向 [新增],然後按一下 [專案]。
  3. 按一下 [專案類型,] 下的 [Visual Basic 專案]。
  4. 範本,] 下方按一下 [主控台應用程式,然後再按一下 [[確定]

    根據預設值,Module1.vb,即建立。
  5. 加入 Microsoft CDO 為 Windows 2000 文件庫的參考。要這麼做,請您執行下列步驟:
    1. 在 [專案] 功能表上按一下 [加入參考]。
    2. 在 [COM] 索引標籤上按一下 Microsoft CDO 對於 Windows 2000 櫃,然後按一下 [選取]。
    3. 在 [加入參考] 對話方塊中,按一下 [確定] 以接受您的選擇。如果接到提示,以產生您所選取的程式庫的包裝函式時,按一下 [是]
  6. 請依照下列步驟 5a 透過 5 c 加入 Microsoft ActiveX 資料物件 2.5 文件庫的參考。
  7. 在程式碼] 視窗中取代與的所有程式碼:
    Imports System.Reflection
    
    Module Module1
    
        Sub Main()
            Dim oMsg As CDO.Message = New CDO.Message()
            oMsg.From = "from@microsoft.com"
            oMsg.To = "to@microsoft.com"
            oMsg.Subject = "CdoSys HTML mail in VB.NET (pickup)"
    
            Dim sHtml As String
            sHtml = "<HTML>" & _
             "<HEAD>" & _
             "<TITLE>Simple CDOSYS Message</TITLE>" & _
             "</HEAD>" & _
             "<BODY><P>" & _
             "<h1><Font Color=Green>Simple CDOSYS HTML Message</Font></h1>" & _
             "</BODY>" & _
             "</HTML>"
    
            oMsg.HTMLBody = sHtml
    
            ' Set configuration.
            Dim iConfg As CDO.Configuration = New CDO.Configuration()
    
            Dim oFields As ADODB.Fields
            oFields = iConfg.Fields
    
            Dim oField As ADODB.Field
            oField = oFields("http://schemas.microsoft.com/cdo/configuration/sendusing")
            oField.Value = 1   ' Sets the configuration to use the local SMTP server.
    
            oFields.Update()
            oMsg.Configuration = iConfg
    
            oMsg.Send()
    
            oMsg = Nothing
            iConfg = Nothing
            oFields = Nothing
            oField = Nothing
        End Sub
    
    End Module
    					
  8. 在程式碼中搜尋 TODO"並再修改您的環境的程式碼。
  9. 按下 F5 以建置並執行程式。
  10. 請確認電子郵件已被傳送並接收。

屬性

文章編號: 313773 - 上次校閱: 2007年11月29日 - 版次: 3.2
這篇文章中的資訊適用於:
  • Microsoft Visual Basic .NET 2003 Standard Edition
  • Microsoft Visual Basic .NET 2002 Standard Edition
  • Microsoft Collaboration Data Objects 2.0
關鍵字:?
kbmt kbmsg kbcode kbxml kbhowtomaster KB313773 KbMtzh
機器翻譯
重要:本文是以 Microsoft 機器翻譯軟體翻譯而成,而非使用人工翻譯而成。Microsoft 同時提供使用者人工翻譯及機器翻譯兩個版本的文章,讓使用者可以依其使用語言使用知識庫中的所有文章。但是,機器翻譯的文章可能不盡完美。這些文章中也可能出現拼字、語意或文法上的錯誤,就像外國人在使用本國語言時可能發生的錯誤。Microsoft 不為內容的翻譯錯誤或客戶對該內容的使用所產生的任何錯誤或損害負責。Microsoft也同時將不斷地就機器翻譯軟體進行更新。
按一下這裡查看此文章的英文版本:313773
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