Como mesclar duas pastas sem duplicatas em uma única pasta no Outlook?

Author: Sun Last Modified: 2025-08-06

No Outlook, você pode ter várias contas de email com muitas pastas e, em alguns casos, pode querer mesclar duas pastas em uma e remover os itens duplicados. Como você pode resolver essa tarefa rapidamente? Neste artigo, apresento um código VBA para ajudá-lo a lidar com isso da forma mais rápida possível no Outlook.

Mesclar duas pastas sem duplicatas em uma usando código VBA

Mesclar várias pastas e remover itens duplicados com Kutools para Outlook

Mesclar duas pastas sem duplicatas em uma usando código VBA

Para mesclar duas pastas em uma e remover os itens duplicados, você pode fazer isso com o código VBA seguindo estas etapas:

1. Pressione as teclas "Alt + F11" para abrir a janela "Microsoft Visual Basic for Applications".

2. Clique duas vezes em "ThisOutlookSession" em "Project1" no painel esquerdo, depois copie e cole o código abaixo na janela de script à direita.

VBA: Mesclar duas pastas sem duplicatas

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 merge folders without duplicates 1

3. Clique em "Ferramentas" > "Referências", e na caixa de diálogo que aparecer, marque a caixa de seleção "Microsoft Scripting Runtime".

4. Clique em "OK". Agora pressione a tecla "F5" para executar o código. Uma caixa de diálogo será exibida lembrando você de selecionar a primeira pasta que deseja mesclar (nota: todos os itens da primeira pasta serão removidos após a mesclagem com a segunda pasta).
doc merge folders without duplicates 4

5. Clique em "OK". Na segunda caixa de diálogo que aparecer, escolha a segunda pasta que deseja comparar e mesclar.
doc merge folders without duplicates 5

6. Clique em "OK". Agora, todos os itens da primeira pasta serão movidos para a segunda pasta, e os duplicados serão removidos.
doc merge folders without duplicates 6

Mesclar várias pastas e remover itens duplicados com Kutools para Outlook

Se você não está familiarizado com o código VBA, experimente usar o "Kutools para Outlook", um complemento prático, com suas funcionalidades "Organizar Pastas" e "Emails Duplicados", que podem lidar facilmente e rapidamente com essa tarefa.

Desbloqueie a máxima eficiência de e-mail com o Kutools para Outlook! Acesse 70 recursos poderosos totalmente grátis, para sempre. Faça o download da Versão Gratuita Agora!

Mesclar várias pastas

1. Clique em "Kutools Plus" > "Consolidating Folders", depois, na caixa de diálogo "Merge multiple folders into one", clique em "Adicionar" para adicionar as pastas que deseja mesclar à lista e escolha uma pasta como pasta de destino.

2. Clique em "OK" > "OK". Agora, todos os itens nas pastas selecionadas foram mesclados na pasta especificada.
doc consolidate and remove duplicate 2

Remover itens duplicados

3. Clique em "Kutools" > "Delete Duplicate" > "Duplicate Emails". Depois, na caixa de diálogo "Duplicate messages", marque a pasta onde deseja remover duplicatas.

4. Clique em "Próximo". Na caixa de diálogo "Duplicate Messages Settings", especifique os critérios que você usará para comparar emails. Depois, marque a opção "Excluir Emails Duplicados" e selecione "Comparar dentro de uma única pasta".

5. Clique em "Próximo" > "Próximo", e os emails duplicados serão filtrados. Clique no botão "Delete duplicate message" > "OK" para remover os emails duplicados com sucesso.
doc merge folders without duplicates 6