Outlook のすべての連絡先について、一括で「ファイル形式」を変更するにはどうすればよいですか？

通常、連絡先はOutlook 上で「姓 名」の順で表示されますが、以下のスクリーンショットのように、既存の連絡先ファイルの「ファイル形式」を「会社名順」やその他の形式に一括で素早く変更するにはどうすればよいでしょうか？ 「ファイル形式」の既定設定は新規連絡先にのみ適用され、すでに保存されている連絡先には反映されません。ここでは、Outlook に登録済みのすべての連絡先について、「ファイル形式」を一括で変更できる VBA コードをご紹介します。

VBA を使用してすべての連絡先の「ファイル形式」を一括変更

---

VBA を使用してすべての連絡先の「ファイル形式」を一括変更

1。ファイル形式を変更したい連絡先を選択し、Alt + F11キーを押して、Microsoft Visual Basic for Applicationsウィンドウを開きます。

2。ThisOutlookSessionをProject-Project1ペインでダブルクリックし、以下のコードを空のスクリプトにコピー＆ペーストしてください。

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。会社情報が登録されていない場合は、フルネームが表示されます。