Як швидко об’єднати елементи з кількох папок без дублікатів у Outlook

Якщо ви хочете об’єднати всі елементи з кількох папок Outlook і застрахуватись від дублікатів, ви можете скористатися методом, представленим у цій статті. Він використовує код VBA, щоб допомогти вам виконати це як пробку.

Іноді вам може знадобитися об’єднати елементи з кількох папок Outlook, наприклад об’єднати всі контакти з кількох папок контактів Outlook. У цій ситуації, якщо серед цих папок є дубльовані контакти, ви повинні сподіватися, що дублікати можна буде автоматично видалити під час об’єднання. За цих обставин ви можете скористатися наведеним нижче кодом VBA, щоб реалізувати його з легкістю.

Об’єднайте елементи з кількох папок без дублікатів

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

'Here we take "merging two folders" as an example
Sub MergeOutlookFolders_WithoutDuplicates()
    Dim objSourceFolder As Outlook.Folder
    Dim objTargetFolder As Outlook.Folder
    Dim i, n, x As Long
    Dim objItem As Object
    Dim objDictionary As Object
    Dim strKey As String
 
    Set objSourceFolder = Application.Session.PickFolder
    Set objTargetFolder = Application.Session.PickFolder

    If objSourceFolder.DefaultItemType <> objTargetFolder.DefaultItemType Then
       MsgBox "Error: The two folders are not in same type!", vbExclamation + vbOKOnly
    Else
       'Merge the two folders
       For i = objSourceFolder.Items.count To 1 Step -1
           Set objItem = objSourceFolder.Items.Item(i)
           objItem.Move objTargetFolder
       Next i
 
       Set objDictionary = CreateObject("scripting.dictionary")
 
       'Remove the duplicates
       x = 0
       For n = objTargetFolder.Items.count To 1 Step -1
           Set objItem = objTargetFolder.Items.Item(n)
 
           Select Case objItem.Class
                  Case olMail
                       strKey = objItem.Subject & "," & objItem.Body & "," & objItem.SentOn
                  Case olAppointment
                       strKey = objItem.Subject & "," & objItem.Start & "," & objItem.Duration & "," & objItem.Location & "," & objItem.Body
                  Case olContact
                       strKey = objItem.FullName & "," & objItem.Email1Address & "," & objItem.Email2Address & "," & objItem.Email3Address
                  Case olTask
                       strKey = objItem.Subject & "," & objItem.StartDate & "," & objItem.DueDate & "," & objItem.Body
           End Select
 
           strKey = Replace(strKey, ", ", Chr(32))
 
           If objDictionary.Exists(strKey) = True Then
              objItem.Delete
              x = x + 1
           Else
              objDictionary.Add strKey, True
           End If
      Next n
 
      'Prompt you of the count of removed duplicates
      If x <> 0 Then
         MsgBox x & " duplicates removed when merging!", vbInformation + vbOKOnly
      End If
    End If
End Sub

5. Пізніше вам потрібно буде перевірити параметри макросу Outlook, переконавшись, що макрос увімкнено.
6. Нарешті можна спробувати.

• По-перше, повернемося до нового вікна модуля.
• Потім натисніть клавішу F5, щоб запустити цей макрос.
• Потім вам потрібно вибрати дві папки, які потрібно об’єднати. Перший — вихідний, а другий — вихідний tarотримати один.
• Після цього Outlook почне переміщувати всі елементи з вихідної папки до tarотримати один. Крім того, тим часом дублікати буде автоматично видалено.
• Зрештою ви можете отримати повідомлення про кількість видалених дублікатів, як на знімку екрана нижче:

Дрібні помилки можуть призвести до великих збоїв

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

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

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