Como combinar duas pastas sem duplicados numa única pasta no Outlook?

No Outlook, pode ter várias contas de e-mail com inúmeras pastas e, em alguns casos, precisar de combinar duas pastas numa só, eliminando os itens duplicados. Como resolver esta tarefa rapidamente? Neste artigo, apresento um código VBA para o ajudar a executá-la da forma mais rápida possível no Outlook.

Combinar duas pastas sem duplicados numa só através de código VBA

Combine várias pastas e remova itens duplicados com Kutools para Outlook

---

Combinar duas pastas sem duplicados numa só através de código VBA

Para combinar duas pastas numa só e remover os itens duplicados, pode utilizar um código VBA seguindo estes passos:

1. Prima as teclas «Alt + F11» para abrir a janela do Microsoft Visual Basic for Applications.

2. Faça duplo clique em «ThisOutlookSession», em "Project1", no painel esquerdo, e copie e cole o código seguinte na janela de script à direita.

VBA: Combinar duas pastas sem duplicados

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

3. Clique em «Ferramentas» > «Referências» e, na caixa de diálogo que aparece, marque a opção «Microsoft Scripting Runtime».

4. Clique em «OK». Em seguida, prima a tecla "F5" para executar o código. Irá aparecer uma caixa de diálogo a lembrá-lo de selecionar a primeira pasta que pretende combinar (nota: todos os itens dessa pasta serão removidos após a combinação com a segunda pasta).

5. Clique em «OK». Na segunda caixa de diálogo que aparece, selecione a segunda pasta com a qual deseja comparar e combinar.

6. Clique em «OK». Agora, todos os itens da primeira pasta serão transferidos para a segunda pasta, com a remoção automática dos duplicados.

---

Combine várias pastas e remova itens duplicados com Kutools para Outlook

Se não estiver familiarizado com código VBA, experimente utilizar «Kutools para Outlook», um suplemento prático, com as suas utilidades «Organizar Pastas» e «Emails Duplicados», que podem tratar facilmente e rapidamente esta tarefa.

Combinar várias pastas

1. Clique em «KUTOOLS PLUS» > «Organizar Pastas», na caixa de diálogo «Organizar Múltiplas Pastas em uma Pasta», clique em «Adicionar» para incluir na lista as pastas que pretende combinar e selecione uma pasta como destino.

2. Clique em «OK» > «OK». Agora, todos os itens das pastas selecionadas foram combinados na pasta indicada.

Remover itens duplicados

3. Clique em «Kutools» > «Eliminar Duplicados» > «Emails Duplicados». Na caixa de diálogo «Emails Duplicados», selecione a pasta onde pretende remover as duplicatas.

4. Clique em «Seguinte». Na caixa de diálogo «Definições de Emails Duplicados», defina os critérios que pretende utilizar para comparar as mensagens. Em seguida, marque a opção «Excluir Emails Duplicados» e selecione «Comparar dentro de uma única pasta».

5. Clique em «Seguinte» > «Seguinte» e os e-mails duplicados serão filtrados. Depois, clique no botão «Eliminar mensagem duplicada» > «OK» para remover com sucesso os e-mails duplicados.