OL2002: 如何變更檔案為所有連絡人欄位

文章翻譯 文章翻譯
文章編號: 291144 - 檢視此文章適用的產品。
全部展開 | 全部摺疊

在此頁中

結論

本文將告訴您,如何使用自訂的 Outlook 表單和 Visual Basic 指令碼版 (VBScript) 以程式設計方式變更大量的現有連絡人之 [歸檔為] 欄位。

其他相關資訊

重要: 如果您使用標準的 Outlook 連絡人表單來變更 [歸檔為] 欄位的格式,Outlook 可確保此欄位的格式不會影響其他區域顯示這種類型的資訊 (如頂端的連絡人,在 [地址卡] 檢視中檢視時)。不過,本範例只是變更 [歸檔為 欄位本身,因此不會執行 Outlook 連絡人表單相同的功能。Microsoft 建議您請一份您的 [連絡人] 資料夾,然後再使用 [複製到確保使用這個範例的優點彌補任何潛在的缺點,這種方法在資料夾上的 [範例程式碼下方。

注意: 當您變更 [歸檔為] 欄位] 時,連絡人出現在 [Outlook 通訊錄] 中的順序並不會受到影響。

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當您建立新的自訂 Outlook 表單時,您可以變更所有連絡人的 歸檔為] 欄位為下列格式的任一:
  • 名字姓氏
  • 第一次最後
  • 公司
  • 上次: 首先 (公司)
  • 公司 (姓氏,第 1)

如何設計自訂的表單

  1. 在 [檔案] 功能表上指向 [新增],再按 [郵件],開啟新的電子郵件訊息。
  2. 在新的電子郵件的 [工具] 功能表上指向 [表單],然後按一下 [設計這個表單]。
  3. 插入新的表單上的五個 [命令] 按鈕。如果要執行這項操作:
    1. 按一下 [(P.2)] 索引標籤,以返回 [在表單上的 [空白頁面。
    2. 在 [表單] 功能表上按一下 [控制工具箱],按一下 [指令按鈕,然後再拖曳按鈕至空白表單頁面]。
    3. 在新的按鈕上按一下滑鼠右鍵,並按一下 [內容],然後在 [名稱] 方塊中輸入 cmdLastFirst]。
    4. 在 [標題] 方塊中輸入 名字姓氏,],然後再按一下 [確定]]。
    5. 在 [工具箱] 對話方塊按一下 [指令按鈕,] 然後將第二個按鈕拖曳至空白表單頁面]。
    6. 在新的按鈕上按一下滑鼠右鍵,並按一下 [內容],然後在 [名稱] 方塊中輸入 cmdFirstLast]。
    7. 在 [標題] 方塊中輸入 名字姓氏,],然後再按一下 [確定]]。
    8. 按一下在 [工具箱] 對話方塊 指令按鈕,再按一下拖曳第三個按鈕至空白表單頁面。
    9. 在新的按鈕上按一下滑鼠右鍵,並按一下 [內容],然後在 [名稱] 方塊中輸入 cmdCompany]。
    10. 在 [標題] 方塊中鍵入 公司,再按 [確定]
    11. 按一下在 [工具箱] 對話方塊 指令按鈕,再按一下第四個拖曳按鈕至空白表單頁面。
    12. 在新的按鈕上按一下滑鼠右鍵,並按一下 [內容],然後在 [名稱] 方塊中輸入 cmdLastFirstCompany]。
    13. 在 [標題] 方塊中輸入 姓氏 (公司): 首先,],然後再按一下 [確定]]。
    14. 按一下在 [工具箱] 對話方塊 指令按鈕,再按一下第五個拖曳按鈕至空白表單頁面。
    15. 在新的按鈕上按一下滑鼠右鍵,並按一下 [內容],然後在 [名稱] 方塊中輸入 cmdCompanyLastFirst]。
    16. 在 [標題] 方塊中鍵入 公司 (姓氏,名字),再按 [確定]
  4. 輸入下列的 Visual Basic 指令碼版 (VBScript) 程式碼。如果要執行這項操作:
    1. 按一下 [表單] 功能表,開啟指令碼編輯器的 檢視程式碼
    2. 在 [Script 編輯器] 中,輸入或複製下列程式碼:
      Option Explicit
      Dim strSortBy
      
      Sub cmdLastFirst_Click()
         strSortBy = "LastFirst"
         UpdateContacts
      End Sub
      
      Sub cmdFirstLast_Click()
         strSortBy = "FirstLast"
         UpdateContacts
      End Sub
      
      Sub cmdCompany_Click()
         strSortBy = "Company"
         UpdateContacts
      End Sub
      
      Sub cmdLastFirstCompany_Click()
         strSortBy = "Last, First (Company)"
         UpdateContacts
      End Sub
      
      Sub cmdCompanyLastFirst_Click()
         strSortBy = "Company (Last, First)"
         UpdateContacts
      End Sub
      
      Sub UpdateContacts()
      
         Dim CurFolder
         Dim MyItems
         Dim MyItem
         Dim NumItems, i
      
         ' Use whichever folder is currently selected
         Set CurFolder = Application.ActiveExplorer.CurrentFolder
      
         ' Make sure it's a contact folder
         If CurFolder.DefaultItemType = 2 Then
            MsgBox "This process may take some time. You will be " & _
            "notified when complete.", , "Contact Tools Message"
            Set MyItems = CurFolder.Items
            NumItems = MyItems.Count
            For i = 1 to NumItems
               Set MyItem = MyItems.Item(i)
               ' Make sure it's not a distribution list in the folder
               ' (really only applies to OL98 and OL2000)
               If TypeName(MyItem) = "ContactItem" Then
                  Select Case strSortBy
                     Case "LastFirst"
                        If MyItem.LastNameandFirstName <> "" Then
                           MyItem.FileAs = MyItem.LastNameandFirstName
                        Else
                           MyItem.FileAs = MyItem.CompanyName
                        End IF
                     Case "FirstLast"
                        If MyItem.Subject <> "" Then
                           MyItem.FileAs = MyItem.Subject
                        Else
                           MyItem.FileAs = MyItem.CompanyName
                        End IF
                     Case "Company"
                        If MyItem.CompanyName <> "" Then
                           MyItem.FileAs = MyItem.CompanyName
                        Else
                           MyItem.FileAs = MyItem.LastNameandFirstName
                        End IF
                     Case "Last, First (Company)"
                        MyItem.FileAs = MyItem.LastNameAndFirstName
                        If MyItem.CompanyName <> "" Then
                           If MyItem.FileAs <> "" Then
                              MyItem.FileAs = MyItem.FileAs & " (" & _
                                              MyItem.CompanyName & ")"
                           Else
                              MyItem.FileAs = MyItem.FileAs & _
                                        MyItem.CompanyName
                           End If
                        End If
                     Case "Company (Last, First)"
                        MyItem.FileAs = MyItem.CompanyName
                        If MyItem.LastNameandFirstName <> "" Then
                           If MyItem.FileAs <> "" Then
                              MyItem.FileAs = MyItem.FileAs & " (" & _
                                     MyItem.LastNameAndFirstName & ")"
                           Else
                              MyItem.FileAs = MyItem.FileAs & _
                                     MyItem.LastNameAndFirstName
                           End If
                        End If
                  End Select
                  MyItem.Save
               End If           ' check TypeName
            Next
            MsgBox "Finished updating contacts."
         Else
            MsgBox "The current folder must be a contacts folder."
         End If                 ' check contacts folder
      
         Set MyItem = Nothing
         Set MyItems = Nothing
         Set CurFolder = Nothing
      
      End Sub
      						
    3. 在 [檔案] 功能表 Script 編輯器] 中上, 按一下 [關閉] 以回到表單]。
    4. 按一下表單的 [訊息] 頁。
    5. 在 [表單] 功能表上按一下 [顯示此頁面]。這樣不會出現在使用表單時,這會隱藏表單頁。
  5. 發佈表單。如果要執行這項操作:
    1. 在 [工具] 功能表上指向 Form,],然後再按一下 [將表單發佈成]。
    2. 請確認所要在 查詢中] 按鈕旁看到 個人表單檔案庫] 中
    3. 在 [顯示名稱] 方塊中鍵入新的表單 (例如,變更歸檔為] 欄位),discriptive 名稱,然後按一下 [發佈]
    4. 當提示您儲存表單定義與項目時,按一下 []。
    5. 關閉郵件而不儲存它。

如何使用自訂表單

若要使用新的表單:
  1. 找出您想要 re-sequence 連絡人資料夾。
  2. 在 [檔案] 功能表上指向 [新增],然後按一下 [選擇表單]。
  3. 將 [查詢] 方塊改到 [個人表單檔案庫、 按一下您的新表單,然後按一下 [[確定]
  4. 按一下適當的按鈕來更新 [歸檔為] 欄位。

?考

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

屬性

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