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.
Chega de ineficiência no Outlook! O Kutools para Outlook torna o processamento de e-mails em lote mais fácil - agora com recursos gratuitos alimentados por IA! Baixe o Kutools para Outlook 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 o novo Kutools para Outlook com mais de100 recursos incríveis! Clique para baixar agora!
📧 Automação de E-mail: Resposta automática (Disponível para POP e IMAP) / Agendar Enviar Email / 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 Email individuais ...
📨 Gerenciamento de Email: Recallar Email / Bloquear emails fraudulentos por Assunto e outros critérios / Excluir Duplicado / Pesquisa Avançada / Organizar Pastas ...
📁 Anexos Pro: Salvar em Lote / Desanexar em Lote / Comprimir em Lote / Salvar automaticamente / Desanexar automaticamente / Auto Comprimir ...
🌟 Magia da Interface: 😊Mais emojis bonitos e legais / Notificações de emails importantes / Minimizar Outlook em vez de fechar ...
👍 Recursos de um clique: Responder a Todos com Anexos / Emails Anti-Phishing / 🕘Exibir o fuso horário do remetente ...
👩🏼🤝👩🏻 Contatos e Calendário: Adicionar contato em lote dos Email selecionados / Dividir um Grupo de Contatos em grupos individuais / Remover lembrete de aniversário ...
Utilize o Kutools no idioma que preferir — disponível em Inglês, Espanhol, Alemão, Francês, Chinês e mais de40 outros!
🚀 Download com um clique — Baixe todos os complementos de Office
Recomendado fortemente: Kutools para Office (5 em1)
Um clique para baixar cinco instaladores de uma vez — Kutools para Excel, Outlook, Word, PowerPoint e Office Tab Pro. Clique para baixar agora!
- ✅ Comodidade em um clique: Baixe todos os cinco pacotes de instalação em uma única ação.
- 🚀 Pronto para qualquer tarefa no Office: Instale os complementos que você precisa, quando precisar.
- 🧰 Inclui: Kutools para Excel / Kutools para Outlook / Kutools para Word / Office Tab Pro / Kutools para PowerPoint