Como mesclar duas pastas sem duplicatas em uma única pasta no Outlook?
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
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).
5. Clique em "OK". Na segunda caixa de diálogo que aparecer, escolha a segunda pasta que deseja comparar e mesclar.
6. Clique em "OK". Agora, todos os itens da primeira pasta serão movidos para a segunda pasta, e os duplicados serão removidos.
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.
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.
Melhores Ferramentas de Produtividade para Office
Notícia de Última Hora: Kutools para Outlook Lança Versão Gratuita!
Experimente agora a nova versão GRATUITA do Kutools para Outlook, com mais de70 recursos incríveis para você usar PARA SEMPRE! Clique para baixar agora!
📧 Automação de Email: Resposta automática (Disponível para POP e IMAP) / Agendar envio de emails / CC/BCC automático por Regra ao enviar email / Encaminhamento automático (Regra avançada) / Adicionar saudação automaticamente / Dividir automaticamente emails com múltiplos destinatários em mensagens individuais...
📨 Gerenciamento de Email: Recallar Email / Bloquear emails suspeitos por assunto e outros critérios / Excluir Emails Duplicados / Pesquisa Avançada / Organizar Pastas...
📁 Anexos Pro: Salvar em lote / Desanexar em lote / Comprimir em lote / Salvar automaticamente / Desanexar automaticamente / Auto Comprimir...
🌟 Interface Mágica: 😊Mais emojis bonitos e estilosos / Aviso quando emails importantes chegarem / Minimizar Outlook ao invés de fechar...
👍 Recursos com Um Clique: Responder a Todos com Anexos / Emails Anti-Phishing / 🕘Exibir o fuso horário do remetente...
👩🏼🤝👩🏻 Contatos & Calendário: Adicionar contatos em lote a partir de emails selecionados / Dividir um grupo de contatos em grupos individuais / Remover lembrete de aniversário...
