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

Якщо додати групи контактів до поля “Кому” поточного електронного листа, серед них можуть бути кілька дублікатів. Ця стаття навчить вас використовувати VBA для швидкого видалення дублікатів одержувачів.

При складанні електронного листа, якщо ви не лише додаєте контакти, але й групи контактів як одержувачів, іноді можуть бути кілька дубльованих одержувачів, оскільки групи контактів згортаються за замовчуванням. У цьому випадку, якщо ви хочете виявити дублікати, вам слід спочатку розширити групи контактів, а потім порівняти одержувачів вручну, що було детально представлено в моїй попередній статті - “Як видалити повторювані одержувачі з електронної пошти Outlook". Без сумнівів, це дуже нудно. Отже, багато користувачів прагнуть швидкого способу видалення дублікатів одержувачів. Далі ми навчимо вас отримувати його за допомогою Outlook VBA.

Швидко видаліть повторювані одержувачі з електронної пошти Outlook

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

Sub RemoveDuplicateRecipients()
    Dim objCurrentMail As MailItem
    Dim objRecipients As Recipients
    Dim ContactGroupFound As Boolean
    Dim i, n As Long
 
    Set objCurrentMail = ActiveInspector.CurrentItem
    ContactGroupFound = True
 
    While ContactGroupFound = True
          Set objRecipients = objCurrentMail.Recipients
          ContactGroupFound = False
 
          'Expand the contact groups in "To" field
          For i = objRecipients.Count To 1 Step -1
              If objRecipients(i).AddressEntry.DisplayType <> olUser Then
                 For n = 1 To objRecipients(i).AddressEntry.Members.Count
                     If objRecipients(i).AddressEntry.Members.Item(n).DisplayType = olUser Then
                        objCurrentMail.Recipients.Add (objRecipients(i).AddressEntry.Members.Item(n).Address)
                     Else
                        objCurrentMail.Recipients.Add (objRecipients(i).AddressEntry.Members.Item(n).Name)
                        ContactGroupFound = True
                     End If
                 Next
                 objRecipients(i).Delete
              End If
          Next i
          objRecipients.ResolveAll
    Wend
 
    'Remove the duplicate recipients
    For i = objRecipients.Count To 1 Step -1
        For n = (i - 1) To 1 Step -1
            If objRecipients(i).Address = objRecipients(n).Address Then
               objRecipients(i).Delete
               Exit For
            End If
        Next
    Next
End Sub

5. Після цього ви можете додати новий проект VBA на панелі швидкого доступу у вікні повідомлень.
6. Пізніше вам потрібно встановити низький рівень захисту макросів Outlook.
7. Нарешті можна спробувати.

• По-перше, просто складіть електронний лист, як зазвичай.
• Потім додайте групи контактів та контакти у поле “Кому”.
• Далі ви можете натиснути кнопку нового макросу на панелі швидкого доступу.
• Одразу Outlook автоматично розширить групи контактів, а потім видалить дублікатів одержувачів.

Захистіть свої цінні дані Outlook

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

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

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