Как пакетно изменить формат файла для всех контактов в Outlook?

Author Sun Last modified 2025-08-26

Обычно файлы контактов отображаются в формате Фамилия Имя в 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

doc change file as 3

3. Нажмите клавишу F5, чтобы запустить код, затем все выбранные контакты будут изменены на формат компании.

Примечание:

1. В коде вы можете изменить CompanyName на другие поля, которые вы хотите отобразить как формат файла.

2. Если информация о компании отсутствует, будет отображаться полное имя.

AI Mail Assistant в Outlook: Умные ответы, четкое общение (волшебство в один клик!) БЕСПЛАТНО

Оптимизируйте свои ежедневные задачи в Outlook с помощью AI Mail Assistant от Kutools для Outlook. Этот мощный инструмент изучает ваши прошлые письма, чтобы предлагать умные и точные ответы, оптимизировать содержание ваших писем и помогать легко создавать и редактировать сообщения.

Эта функция поддерживает:

Умные ответы: Получайте ответы, созданные на основе ваших предыдущих разговоров — персонализированные, точные и готовые к отправке.
Улучшенное содержание: Автоматически улучшайте текст ваших писем для большей ясности и воздействия.
Простое составление: Просто укажите ключевые слова, и пусть ИИ сделает остальную работу, предлагая несколько стилей написания.
Интеллектуальные расширения: Расширяйте свои мысли с помощью контекстно-зависимых предложений.
Суммаризация: Мгновенно получайте краткие обзоры длинных писем.
Глобальный охват: Легко переводите ваши письма на любой язык.

Эта функция поддерживает: