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

No Outlook, você pode ter muitas contas de e-mail com muitas pastas; em alguns casos, você deseja mesclar duas pastas em uma e remover os itens duplicados. Como você pode resolver esse trabalho rapidamente? Neste artigo, apresento um código VBA para ajudá-lo a manipulá-lo o mais rápido possível no Outlook.

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

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

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

Para mesclar duas pastas em uma e remover os itens duplicados, você pode lidar com isso com o código VBA conforme as seguintes etapas:

1. Pressione Alt + F11 chaves para habilitar o Microsoft Visual Basic para Aplicações janela

2. Clique duas vezes em Esta sessão do Outlook da Project1 no painel esquerdo, copie e cole o código abaixo no script correto.

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 mesclar pastas sem duplicatas 1

3. Clique Ferramentas > Referências e na caixa de diálogo popping, verifique Tempo de execução de scripts da Microsoft caixa de seleção.

4. Clique OK. Agora pressione F5 chave para executar o código. Uma caixa de diálogo é exibida para lembrá-lo de selecionar a primeira pasta que deseja mesclar (nota: todos os itens da primeira pasta serão removidos após a fusão com a segunda pasta).
doc mesclar pastas sem duplicatas 4

5. Clique OK, na segunda caixa de diálogo pop-up, escolha a segunda pasta que deseja comparar e fundir.
doc mesclar pastas sem duplicatas 5

6. Clique OK, agora, todos os itens da primeira pasta serão movidos para a segunda pasta e os duplicados também serão removidos.
doc mesclar pastas sem duplicatas 6

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

Se você não estiver familiarizado com o código VBA, tente usar Kutools for Outlook, um suplemento útil, com seu Consolidando Pastas e Emails duplicados utilitários que podem realizar esse trabalho de maneira fácil e rápida.

Kutools for Outlook , Inclui 100+ recursos e ferramentas poderosos para Microsoft Outlook 2016, 2013, 2010 e Office 365.
Vá para o download Teste grátis 45 dias

Livre Instalar Kutools para Outlook e siga as etapas abaixo:

Mesclar várias pastas

1. Clique Kutools Plus > Consolidando Pastas, então no Mesclar várias pastas em uma diálogo, clique em Adicionar para adicionar as pastas à lista que será mesclada, escolha uma pasta como pasta de destino.

2. Clique OK > OK. Agora todos os itens nas pastas selecionadas foram mesclados em uma pasta específica.
doc consolidar e remover duplicata 2

Remover itens duplicados

3. Clique Kutools > Apagar Duplicado > Emails duplicados. Então no Mensagens duplicadas caixa de diálogo, marque a pasta que deseja remover duplicatas.

4. Clique Próximoem Configurações de mensagens duplicadas caixa de diálogo, especifique os critérios que você usa para comparar e-mails e, em seguida, verifique Excluir mensagens duplicadas opção e selecione Compare as mensagens duplicadas em uma única pasta.

5. Clique Próximo > Próximo, os e-mails duplicados foram filtrados. Clique Excluir mensagem duplicada botão> OK para remover os e-mails duplicados com sucesso.
doc mesclar pastas sem duplicatas 6