Как пакетно изменить формат отображения диалога «Сохранить как» для всех контактов в Outlook?

Обычно контакты в Outlook отображаются в формате «Фамилия Имя», но как быстро изменить формат отображения «Сохранять как» для всех существующих контактов на «Компания» или другой порядок, как показано на снимке экрана ниже? Стандартный параметр «Порядок отображения „Сохранять как“» применяется только к новым контактам, а не к уже созданным. Ниже приведён код VBA для пакетного изменения формата «Сохранять как» у всех существующих контактов в Outlook.

Пакетное изменение формата «Сохранять как» для всех контактов с помощью 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. Если информация о компании отсутствует, отображается полное имя.