如何在Outlook中批量更改所有聯絡人的檔案格式？

Author Sun Last modified 2025-08-23

一般情況下，Outlook中的聯絡人檔案會以「姓氏名字」的形式顯示。但要如何快速批量將聯絡人檔案的格式更改為「公司」或其他順序（如下方截圖所示）呢？預設的「存檔為」選項只能應用於新聯絡人，而無法影響已存在的聯絡人。在此，我將介紹一種VBA代碼，用於批量更改Outlook中所有現有聯絡人的檔案格式。

使用VBA批量更改所有聯絡人的檔案格式

使用VBA批量更改所有聯絡人的檔案格式

1. 選擇您想要更改檔案格式的聯絡人，按下 Alt + F11 鍵以啟用 Microsoft Visual Basic for Applications 視窗。

2. 在「專案-專案1」窗格中雙擊 ThisOutlookSession，然後將以下代碼複製並粘貼到空白腳本中。

VBA：更改檔案格式

Sub ChangeFileAsforContracts()
'UpdatebyExtendoffice20180404
Dim xSelItems As Object
Dim xItem As Object
Dim xContact As ContactItem
Dim xFileAs As String
On Error Resume Next
If Outlook.Application.ActiveExplorer.CurrentFolder.DefaultItemType <> olContactItem Then
    MsgBox "Please select the contact folder first", vbInformation + vbOKOnly, "Kutools for Outlook"
    Exit Sub
End If
Set xSelItem = Outlook.ActiveExplorer.Selection
For Each xItem In xSelItem
    If xItem.Class = olContact Then
        Set xContact = xItem
        With xContact
            If .CompanyName = "" Then
                xFileAs = .FullName
            Else
                xFileAs = .CompanyName
            End If
            .FileAs = xFileAs
            .Save
        End With
    End If
Next
End Sub

doc change file as 3

3. 按下 F5 鍵運行代碼，然後所有選中的聯絡人都會將檔案格式更改為公司。

注意：

1. 在代碼中，您可以將 CompanyName 更改為您希望顯示的其他欄位。

2. 如果沒有公司資訊，則會顯示全名。

Outlook中的AI郵件助理：更聰明的回覆，更清晰的溝通（一鍵奇蹟！）免費

使用Kutools for Outlook的AI郵件助理簡化您的日常Outlook任務。這個強大的工具會從您過去的郵件中學習，提供智能且準確的答覆，優化您的郵件內容，並幫助您輕鬆起草和潤色郵件。

此功能支援：

智能回覆：根據您過去的對話獲得量身定制、精確且隨時可用的回覆。
增強內容：自動優化您的郵件文字以提高清晰度和影響力。
輕鬆撰寫：只需提供關鍵字，讓AI處理其餘部分，並有多種寫作風格可供選擇。
智能擴展：通過上下文感知建議來拓展您的思路。
摘要生成：即時獲取長郵件的簡潔概述。
全球觸及：輕鬆將您的郵件翻譯成任何語言。

此功能支援：

智能郵件回覆
優化的內容
基於關鍵字的草稿
智能內容擴展
郵件摘要生成
多語言翻譯

最重要的是，此功能永遠完全免費！不要再等待了——立即下載AI郵件助理並享受吧

最佳辦公室生產力工具

最新消息：Kutools for Outlook 推出免費版本！

體驗全新 Kutools for Outlook，超過100項精彩功能！立即下載！

🤖 Kutools AI ：採用先進的AI技術輕鬆處理郵件，包括答覆、摘要、優化、擴充、翻譯及撰寫郵件。

📧 郵件自動化：自動回覆（支援POP及IMAP） / 排程發送郵件 / 發送郵件時根據規則自動抄送密送 / 自動轉發（高級規則） / 自動添加問候語 / 自動分割多收件人郵件為個別郵件 ...

📨 郵件管理：撤回郵件 / 根據主題等方式阻止詐騙郵件 / 刪除重複郵件 / 高級搜索 / 整合文件夾 ...

📁 附件專業工具：批量保存 / 批量拆離 / 批量壓縮 / 自動保存 / 自動拆離 / 自動壓縮 ...

👍 一鍵便利：帶附件全部答復 / 防詐騙郵件 / 🕘顯示發件人時區 ...

👩🏼‍🤝‍👩🏻 聯絡人與日曆：從選中郵件批量添加聯絡人 / 分割聯絡人組為個別組 / 移除生日提醒 ...

以您偏好的語言使用 Kutools，支援英語、西班牙語、德語、法語、中文及超過40種其他語言！

只需點擊一次，即可立即解鎖 Kutools for Outlook。別等了，現在下載提升您的工作效率！

Kutools for Outlook 功能清單立即下載前往購買

🚀 一鍵下載 — 獲取全部 Office 插件

強力推薦：Kutools for Office（5合1）

一鍵下載五個安裝程式，包括 Kutools for Excel, Outlook, Word, PowerPoint及 Office Tab Pro。立即下載！

✅ 一鍵便利：一次操作即可下載全部五套安裝包。
🚀 隨時處理任何 Office 任務：安裝您需求的插件，隨時隨地。
🧰 包含：Kutools for Excel / Kutools for Outlook / Kutools for Word / Office Tab Pro / Kutools for PowerPoint

套件介紹 ⬇下載套件 💳 購買套件