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

重要:本文是以 Microsoft 機器翻譯軟體翻譯而成,而非使用人工翻譯而成。Microsoft 同時提供使用者人工翻譯及機器翻譯兩個版本的文章,讓使用者可以依其使用語言使用知識庫中的所有文章。但是,機器翻譯的文章可能不盡完美。這些文章中也可能出現拼字、語意或文法上的錯誤,就像外國人在使用本國語言時可能發生的錯誤。Microsoft 不為內容的翻譯錯誤或客戶對該內容的使用所產生的任何錯誤或損害負責。Microsoft也同時將不斷地就機器翻譯軟體進行更新。

按一下這裡查看此文章的英文版本: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.ReflectionModule 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 SubEnd Module					
  8. 在程式碼中搜尋 TODO"並再修改您的環境的程式碼。
  9. 按下 F5 以建置並執行程式。
  10. 請確認電子郵件已被傳送並接收。
傳送郵件 CDOSYS 本機 SMTP 目錄

警告:本文為自動翻譯

內容

文章識別碼:313773 - 最後檢閱時間:12/07/2015 08:15:42 - 修訂: 3.2

Microsoft Visual Basic .NET 2003 Standard Edition, Microsoft Visual Basic .NET 2002 Standard Edition, Microsoft Collaboration Data Objects 2.0

  • kbnosurvey kbarchive kbmt kbmsg kbcode kbxml kbhowtomaster KB313773 KbMtzh
意見反應