Як об’єднати дві папки без дублікатів в одну папку в Outlook?

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

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

Об’єднайте кілька папок і видаліть повторювані елементи за допомогою Kutools для Outlook

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

Щоб об’єднати дві папки в одну та видалити повторювані елементи, ви можете обробити це за допомогою коду VBA, виконавши такі дії:

1. прес Alt + F11 клавіші, щоб увімкнути Microsoft Visual Basic для додатків вікно

2. Двічі клацніть на ThisOutlookSession від Project1 на лівій панелі, а потім скопіюйте та вставте код нижче в правий скрипт.

VBA: Об’єднайте дві папки без копій

Sub MergeOutlookFolders_WithoutDuplicates()
'UpdatebyExtendoffice20180521
Dim xSourceFolder As Outlook.Folder
Dim xTargetFolder As Outlook.Folder
Dim xCount, i As Long
Dim xItem As Object
Dim xSourceItem As Object
Dim xTargetItem As Object
Dim xDictionary As Scripting.Dictionary  'Object
Dim xStr As String
On Error Resume Next
Set xDictionary = New Scripting.Dictionary
Set xSourceFolder = Application.Session.PickFolder
Set xTargetFolder = Application.Session.PickFolder
xCount = 0
If xSourceFolder.DefaultItemType <> xTargetFolder.DefaultItemType Then
    MsgBox "Error: The two folders are not in same type!", vbExclamation + vbOKOnly, "Kutools for Outlook"
    Exit Sub
End If
For i = xSourceFolder.Items.Count To 1 Step -1
    Set xSourceItem = xSourceFolder.Items.Item(i)
    xSourceItem.Move xTargetFolder
Next
For i = xTargetFolder.Items.Count To 1 Step -1
    Set xTargetItem = xTargetFolder.Items.Item(i)
    Select Case xTargetItem.Class
        Case olMail
            With xTargetItem
                xStr = .Subject & .Body & .SentOn
            End With
        Case olAppointment
            With xTargetItem
                xStr = .Subject & .Start & .Duration & .Location & .Body
            End With
        Case olContact
            With xTargetItem
                xStr = .FullName & .Email1Address & .Email2Address & .Email3Address
            End With
        Case olTask
            With xTargetItem
                xStr = .Subject & .StartDate & .DueDate & .Body
            End With
    End Select
    If xDictionary.Exists(xStr) = True Then
        xTargetItem.Delete
        xCount = xCount + 1
    Else
        xDictionary.Add xStr, True
    End If
Next i
If xCount <> 0 Then
    MsgBox xCount & " duplicates removed when merging!", vbInformation + vbOKOnly, "Kutools for Outlook"
End If
End Sub

doc злиття папок без дублікатів 1

3. клацання Tools > посилання і у діалоговому вікні, що з’являється, поставте галочку Виконання сценаріїв Microsoft прапорець.

4. клацання OK. Тепер натисніть F5 клавіша для запуску коду. Вискакує діалогове вікно, яке нагадує вам про вибір першої папки, яку потрібно об’єднати (примітка: усі об’єкти першої папки будуть видалені після об’єднання з другою папкою).
doc злиття папок без дублікатів 4

5. клацання OK, у другому діалоговому вікні вибору виберіть другу папку, яку потрібно порівняти та об’єднати.
doc злиття папок без дублікатів 5

6. клацання OK, тепер усі елементи в першій папці будуть переміщені у другу папку, а дублікати також будуть видалені.
doc злиття папок без дублікатів 6

Об’єднайте кілька папок і видаліть повторювані елементи за допомогою Kutools для Outlook

Якщо ви не знайомі з кодом VBA, спробуйте використати Kutools для Outlook, зручна надбудова зі своїм Консолідація папок та Повторювані електронні листи комунальні послуги, які легко та швидко впораються з цією роботою.

Kutools for Outlook , Включає в себе 100 + потужні функції та інструменти для Microsoft Outlook 2016, 2013, 2010 та Office 365.
Перейдіть до Завантажити Безкоштовна пробна версія 45 днів

Безкоштовна установка Kutools для Outlook, а потім виконайте наведені нижче дії.

Об’єднайте кілька папок

1. клацання Kutools Plus > Консолідація папок, потім в Об’єднайте кілька папок в одну діалог, клацніть додавати щоб додати папки до списку, який буде об’єднано, виберіть папку як папку призначення.

2. клацання OK > OK. Тепер усі елементи у вибраних папках об’єднані в одну конкретну папку.
doc консолідувати та видалити дублікат 2

Видаліть повторювані елементи

3. клацання Кутулс > Видалити копію > Повторювані електронні листи. Потім у Повторювані повідомлення діалогове вікно, позначте папку, яку потрібно видалити дублікатами.

4. клацання МАЙБУТНІв Налаштування дублікатів повідомлень діалогове вікно, вкажіть критерії, за якими ви порівнюєте електронні листи, а потім перевірте Видалити дублікати повідомлень опція та виберіть Порівняйте дублікати повідомлень в одній папці.

5. клацання МАЙБУТНІ > МАЙБУТНІ, дубльовані електронні листи відфільтровано. Клацніть Видалити повторюване повідомлення кнопка> OK щоб успішно видалити дублікати електронних листів.
doc злиття папок без дублікатів 6