Як пакетно змінити файл як формат для всіх контактів в 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 для Outlook - Понад 100 потужних функцій, які покращать ваш Outlook

🤖 AI Mail Assistant: Миттєві професійні електронні листи з магією штучного інтелекту – геніальні відповіді одним клацанням, ідеальний тон, багатомовна майстерність. Трансформуйте електронну пошту без зусиль! ...

???? Автоматизація електронної пошти: Поза офісом (доступно для POP та IMAP)  /  Розклад надсилання електронних листів  /  Автоматична копія/прихована копія за правилами під час надсилання електронної пошти  /  Автоматичне пересилання (розширені правила)   /  Автоматично додавати привітання   /  Автоматично розділяйте електронні листи кількох одержувачів на окремі повідомлення ...

📨 Управління електронною поштою: Легко відкликайте електронні листи  /  Блокуйте шахрайські електронні листи за темами та іншими  /  Видалити повторювані електронні листи  /  розширений пошук  /  Консолідація папок ...

📁 Вкладення Pro: Пакетне збереження  /  Пакетне від'єднання  /  Пакетний компрес  /  Автозавантаження   /  Автоматичне від'єднання  /  Автокомпресія ...

???? Магія інтерфейсу: 😊Більше красивих і класних смайликів   /  Підвищте продуктивність Outlook за допомогою вкладок  /  Згорніть Outlook замість того, щоб закривати ...

👍 Дива в один клік: Відповісти всім із вхідними вкладеннями  /   Антифішингові електронні листи  /  🕘Показувати часовий пояс відправника ...

👩🏼‍🤝‍👩🏻 Контакти та календар: Пакетне додавання контактів із вибраних електронних листів  /  Розділіть групу контактів на окремі групи  /  Видаліть нагадування про день народження ...

більше Особливості 100 Чекайте на ваше дослідження! Натисніть тут, щоб дізнатися більше.

Детальніше       Безкоштовне завантаження      Купити