Как выполнить пакетное изменение файла как формата для всех контактов в Outlook?
Как правило, файлы контактов отображаются как Фамилия Имя в Outlook, но как можно быстро пакетно изменить файлы контактов в формате компании или другом порядке, как показано ниже? Опция по умолчанию «Файл как» может работать только для нового контакта, но не для существующих. Здесь я представляю код VBA для пакетного изменения файла в качестве формата для всех существующих контактов в Outlook.
Пакетное изменение файла как для всех контактов с VBA
Пакетное изменение файла как для всех контактов с VBA
1. Выберите контакты, в которых вы хотите изменить файл, нажмите Alt + F11 ключи для включения Microsoft Visual Basic for Applications окно.
2. Дважды щелкните на ThisOutlookSession in 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. Если информации о компании нет, будет показано полное название.
Лучшие инструменты для офисной работы
Kutools for Outlook - Более 100 мощных функций для улучшения вашего Outlook
🤖 Почтовый помощник с искусственным интеллектом: Мгновенные профессиональные электронные письма с помощью магии искусственного интеллекта: гениальные ответы одним щелчком мыши, идеальный тон, многоязычное владение. Преобразуйте электронную почту без особых усилий! ...
???? Автоматизация электронной почты: Нет на месте (доступно для POP и IMAP) / Расписание отправки писем / Автоматическое копирование/скрытая копия по правилам при отправке электронной почты / Автопересылка (расширенные правила) / Автоматическое добавление приветствия / Автоматически разделять электронные письма от нескольких получателей на отдельные сообщения ...
📨 Управление электронной почтой: Легко вспоминать электронные письма / Блокировка мошеннических писем от субъектов и других лиц / Удалить повторяющиеся электронные письма / Поиск / Объединение папок ...
📁 Вложения Pro: Пакетное сохранение / Пакетное отсоединение / Пакетное сжатие / Автосохранение / Авто отсоединение / Автоматическое сжатие ...
???? Магия интерфейса: 😊Больше красивых и крутых смайлов / Повысьте производительность Outlook с помощью представлений с вкладками / Свернуть Outlook вместо закрытия ...
???? Чудеса в один клик: Ответить всем с входящими вложениями / Антифишинговые письма / 🕘Показать часовой пояс отправителя ...
👩🏼🤝👩🏻 Контакты и календарь: Пакетное добавление контактов из выбранных писем / Разделить группу контактов на отдельные группы / Удалить напоминания о днях рождения ...
Более Особенности 100 Ждем вашего исследования! Нажмите здесь, чтобы узнать больше.