如何批次變更 Outlook 中所有聯絡人的「存檔為」格式？

一般來說，Outlook 中的聯絡人會以「姓氏， 名字」的格式顯示。但若想快速批次將所有既有聯絡人的「存檔為」格式改為「公司」或其他自訂順序（如下圖所示），該怎麼做呢？ 需注意的是，選項中設定的預設「存檔為」順序僅適用於新增聯絡人，無法套用至已存在的聯絡人。 在此，我提供一段 VBA 程式碼，可協助您批次變更 Outlook 中所有既有聯絡人的「存檔為」格式。

使用 VBA 批次變更所有聯絡人的「存檔為」格式

---

使用 VBA 批次變更所有聯絡人的「存檔為」格式

1. 選取您要變更「存檔為」格式的聯絡人，按下 Alt + F11 鍵，即可開啟 Microsoft Visual Basic for Applications 視窗！

2. 在 ThisOutlookSession 的 Project-Project 1 窗格中按兩下，並將下方程式碼複製貼上至空白指令稿中。

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

3. 按下 F5 鍵執行程式碼，所有選取的聯絡人「存檔為」格式將立即變更為公司名稱。

注意：

1. 在程式碼中，您可以將 CompanyName 修改為其他您希望用於「存檔為」對話框中顯示的欄位。

2. 若聯絡人未填寫公司資訊，將顯示其全名。