Як змінити формати відображуваних імен електронної пошти для всіх ваших контактів у партіях за допомогою Outlook VBA

Рішення для Outlook Вересень 29, 2025

Outlook відображатиме всі електронні адреси контактів у форматі відображуваного імені за замовчуванням, а саме «повне ім’я (адреса електронної пошти)». Якщо вам це не подобається, вам доведеться щоразу змінювати його вручну, коли створюєте нові контакти. Ця стаття навчить вас швидкому способу змінити їх партіями за допомогою Outlook VBA.

Коли ви створюєте новий контакт з Outlook, після введення повного імені та адреси електронної пошти, а потім клацання у полі «Відображати як» відображуване ім’я за замовчуванням буде заповнено автоматично, як показано на наступному знімку екрана:

Це відображуване ім’я електронної пошти буде мати ефект, коли потрібно вибрати контакт. Як і на малюнку нижче, 2^nd стовпець “Відображуване ім’я” відповідає інформації в полі “Відображати як”.

Якщо ви хочете змінити формат відображуваного імені електронної пошти, вам доведеться змінити його вручну. Але за допомогою VBA ви можете змінити формат відображуваного імені електронної пошти всіх контактів на потрібний формат по партіях.

Змініть формати відображуваних імен електронної пошти для всіх ваших контактів у партіях

Перш за все запустіть Outlook і натисніть клавіші “Alt + F11”, щоб відкрити вікно “Visual Basic”.
Потім відкрийте новий модуль і скопіюйте в нього наступні коди VBA.

Sub BatchChangeContactDisplayName()
    Dim obApp As Application
    Dim olContacts As Outlook.Items
    Dim obj As Object
    Dim oContact As Outlook.ContactItem
    Dim strName As String
 
    Set olContacts = Session.GetDefaultFolder(olFolderContacts).Items
 
    For Each obj In olContacts
        If TypeName(obj) = "ContactItem" Then
           Set oContact = obj
           With oContact
                'Display name format: "fullname (company name)(email address)"
                 strName = .FullName & " (" & .CompanyName & ")" & " (" & .Email1Address & ") "
                .Email1DisplayName = strName
                .Save
           End With
        End If
    Next
End Sub

Додаткові поради:

Ви можете змінити порядок "повне ім'я", "назва компанії" та "електронна адреса" відповідно до ваших уподобань.
Подія.Повне ім'я"Відноситься до формату в" Ім'я Прізвище ". Якщо ви хочете показати в "Прізвище Ім'я", використовуйте ".Прізвище І Ім'я”Замість цього.

Згодом, після вставки кодів VBA, слід додати новий макрос на панель швидкого доступу. Виконайте наведені нижче дії.

По-перше, поверніться до головного вікна Outlook і натисніть стрілку вниз на панелі швидкого доступу.
Зі спадного списку виберіть «Більше команд».
Потім у вікні "Параметри Outlook" слід вибрати "Макроси" у полі "Вибрати команди з".
Після цього наведіть курсор на цільовий макрос і натисніть кнопку «Додати» посередині.
Нарешті натисніть кнопку «OK».

Зрештою ви можете повернутися до папки контактів за замовчуванням. Натисніть кнопку макросу на панелі швидкого доступу. Після цього ви можете відкрити один контакт для перевірки. Ви побачите, що формат відображуваного імені електронної пошти змінено.

Втеча від втрати даних Outlook

Як ми всі знаємо, Outlook схильний до помилок, пошкоджень. Таким чином, це важке завдання захистити дані Outlook і запобігти їх втраті. Отже, вам слід регулярно робити резервні копії даних Outlook, що значною мірою сприятиме цьому Відновлення збитків даних Outlook у випадку аварії Outlook. Крім того, важливо отримати потужний інструмент для ремонту, такий як DataNumen Outlook Repair. Загалом, це стане в нагоді, якщо резервна копія не є поточною або не дає ефектів.

Вступ автора:

Ширлі Чжан - експерт із відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі ремонт SQL Server пошкодження бази даних mdf - та перспективні програмні продукти для ремонту. Для отримання додаткової інформації відвідайте WWW.datanumen.com