Як автоматично синхронізувати нові контакти з іншою папкою контактів в Outlook

Деякі користувачі хочуть, щоб нові контакти можна було автоматично додавати до двох або більше папок у їхній Outlook. Отже, у цій статті буде описано спосіб автоматичної синхронізації нових контактів з іншою папкою контактів.

Можливо, ви налаштували кілька облікових записів електронної пошти у своєму Outlook. І у кожного з них своя папка «Контакти». У такому випадку, коли ви створюєте контакт в одній папці, ви також можете синхронізувати його з папками контактів інших облікових записів електронної пошти. Чому б не дозволити Outlook виконати це автоматично? Тут ми навчимо вас, як це реалізувати.

Автоматична синхронізація нових контактів з іншою папкою контактів

1. З самого початку вам потрібно запустити програму Outlook.
2. Потім у головному вікні Outlook натисніть комбінацію клавіш «Alt + F11».
3. Далі ви увійдете у вікно «Microsoft Visual Basic for Applications», у якому вам слід знайти та відкрити проект «ThisOutlookSession».
4. Згодом скопіюйте наведений нижче код VBA та вставте його в проект.

Public WithEvents objSourceFolder As Outlook.Folder
Public WithEvents objContacts As Outlook.Items

Private Sub Application_Startup()
    'Get the source Contacts folder
    Set objSourceFolder = Application.Session.GetDefaultFolder(olFolderContacts)
    Set objContacts = objSourceFolder.Items
End Sub

'Occurs when new item is added to the source folder
Private Sub objContacts_ItemAdd(ByVal Item As Object)
    Dim objContact As Outlook.ContactItem
    Dim objTargetFolder As Outlook.Folder
    Dim objCopiedContact As Outlook.ContactItem
 
    If TypeOf Item Is ContactItem Then
       Set objContact = Item
 
       'Specify the target Contacts folder
       '"Personal" refers to the displaying name of target Outlook file
       On Error Resume Next
       Set objTargetFolder = Application.Session.Folders("Personal").Folders("Contacts").Folders("From John Smith")
       If objTargetFolder Is Nothing Then
          Set objTargetFolder = Application.Session.Folders("Personal").Folders("Contacts").Folders.Add("From John Smith")
       End If
 
       'Copy the new contact
       Set objCopiedContact = objContact.Copy
       'Move copied contact to the target folder
       objCopiedContact.Move objTargetFolder
    End If
End Sub

5. Після цього вам потрібно підписати цей код. Просто натисніть кнопку «Інструменти» на панелі інструментів, а потім виберіть «Цифровий підпис». У спливаючому діалоговому вікні просто дотримуйтесь інструкцій на екрані.
6. Пізніше ви можете вийти з поточного вікна та змінити налаштування макросів Outlook, щоб дозволити макроси з цифровим підписом.
7. Нарешті, ви можете перезапустити Outlook, щоб активувати цей новий макрос.
8. Відтепер щоразу, коли до вихідної папки додається новий контакт, він автоматично синхронізуватиметься із заздалегідь визначеною цільовою папкою.

Реагуйте на часті проблеми з Outlook

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

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

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