OL2000: 如何以程式設計方式設定所有連絡人的日誌

文章翻譯 文章翻譯
文章編號: 252947 - 檢視此文章適用的產品。
本文已封存。本文係以「現狀」提供且不會再更新。
全部展開 | 全部摺疊

在此頁中

結論

本文提供 Outlook Visual Basic 應用程式的巨集,您可用來以程式設計方式變更所有的連絡人,使它們會自動設定日誌。

其他相關資訊

已停用預設設定日誌連絡人項目。如果建立連絡人,並接著決定要啟用這些連絡人的日誌,設定每個連絡人的 [日誌] 選項:
  1. 按一下 [工具] 功能表 選項
  2. 在 [喜好設定] 索引標籤上按一下 [日誌選項]。
  3. 在 [連絡人] 方塊中,按一下您要啟用日誌每個的連絡人。
如果您有大量的連絡人,而您想要的它們所有啟用日誌,可能是以程式設計方式變更的所有連絡人的方法更有效率。

Microsoft 僅,為了說明提供程式設計範例,不提供任何明示或默示的保證,包括但不是限於適售性以及適合某特定用途之默示擔保責任。本文假設您已熟悉我們所示範的程式設計語言,以及用來建立和偵錯程序的工具。Microsoft 技術支援工程師可以協助解釋特定程序的功能,但它們不會修改這些範例以提供附加功能或建構程序,以符合您的特定需求。
如果您有限制程式設計經驗,您可以連絡 Microsoft 認證合作夥伴或 Microsoft 諮詢服務。如需詳細資訊請造訪下列 Microsoft] 網站:

Microsoft 認證合作夥伴-https://partner.microsoft.com/global/30000104

Microsoft 摘要報告服務-http://support.microsoft.com/gp/advisoryservice

如需有關可用的支援選項,以及有關如何連絡 Microsoft 的詳細資訊,請造訪下列 Microsoft 網站: http://support.microsoft.com/default.aspx?scid=fh;EN-US;CNTACTMS若要建立巨集:
  1. 在 [工具] 功能表上指向 [巨集,然後按一下 [巨集]。
  2. 在 [巨集名稱] 方塊中輸入 SetAllContactsToJournal,然後按一下 [建立]。Visual Basic 編輯器啟動,並會自動為您建立一個副程式。
  3. 輸入下列幾行程式碼:
    Sub SetAllContactsToJournal()
    
       Dim objContactsFolder As Outlook.MAPIFolder
       Dim objContacts As Outlook.Items
       Dim objContact As Object
       Dim iCount As Integer
    
       ' Specify which contact folder to work with
       Set objContactsFolder = Session.GetDefaultFolder(olFolderContacts)
       Set objContacts = objContactsFolder.Items
    
       iCount = 0
    
       ' Process the changes
       For Each objContact In objContacts
          If TypeName(objContact) = "ContactItem" Then
             If objContact.Journal = False Then
                objContact.Journal = True
                objContact.Save
                iCount = iCount + 1
             End If
          End If
       Next
       
       MsgBox "Number of contacts updated:" & Str$(iCount)
    
       ' Clean up
       Set objContact = Nothing
       Set objContacts = Nothing
       Set objContactsFolder = Nothing
    
    End Sub
    					
  4. 在 [檔案] 功能表上按一下 [關閉],並返回 [Microsoft Outlook]。
若要使用巨集:
  1. 在 [工具] 功能表上指向 [巨集,然後按一下 [巨集]。
  2. 按一下 [SetAllContactsToJournal,然後按一下 [執行]。
此時會出現一個視窗,會告訴您已更新的連絡人數目。

備忘稿

  • 它可能要花處理您的 [連絡人] 資料夾中的項目。
  • 更新您的連絡人時, 您的指標不會變更為沙漏。
  • 如果您經常使用這,您可以將巨集指派到某個按鈕。如需有關將此巨集指派給工具列按鈕的詳細資訊,按一下下面的文件編號,檢視 「 Microsoft 知識庫 」 中的發行項:
    252426OL2000: 如何將巨集指派給工具列按鈕
  • 範例程式碼只適用於預設的 [連絡人] 資料夾中。如果您想要使用任何連絡人] 資料夾,找出下列程式碼
    Set objContactsFolder = Session.GetDefaultFolder(olFolderContacts)
    						
    且變更它來:
    Set objContactsFolder = Outlook.ActiveExplorer.CurrentFolder
    					
  • 如果您熟悉的程式設計,並且要在不同的位置中使用特定的連絡人資料夾,請參閱下列文件 「 Microsoft 知識庫 」 中:
208520OL2000: 程式設計參考項目和資料夾的範例

?考

如需有關可用的資源和 answersto 常: 常見問題解答 Microsoft Outlook 解決方案的詳細資訊,按一下下面的文件編號,檢視 「 Microsoft 知識庫 」 中的發行項:
146636關於自訂表單和 Outlook 解決方案 OL2000: 問題

屬性

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