Note: The other languages of the website are Google-translated. Back to English

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

Mesclar várias pastas e remover 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 desde 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.

doc mesclar pastas sem duplicatas 2 doc seta para a direita doc mesclar pastas sem duplicatas 3

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


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

Se você não estiver familiarizado com o código VBA, tente usar Kutools para 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.

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.
doc consolidar e remover duplicata 1

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.
doc consolidar e remover duplicata 3

4. Clique Seguinteem 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.
doc consolidar e remover duplicata 4

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


Kutools for Outlook - traz 100 recursos avançados para o Outlook e torna o trabalho muito mais fácil!

  • Auto CC / BCC por regras ao enviar e-mail; Avanço automático Vários emails por encomenda; Resposta automatica sem servidor Exchange e mais recursos automáticos ...
  • Aviso BCC - mostrar mensagem quando você tentar responder a todos se o seu endereço de e-mail estiver na lista BCC; Lembrar quando houver anexos ausentes, e mais recursos de lembrete ...
  • Responder (todos) com todos os anexos na conversa de correio; Responder muitos e-mails em segundos; Adicionar saudação automaticamente quando responder; Adicionar data ao assunto ...
  • Ferramentas de anexo: gerenciar todos os anexos em todos os e-mails, Desanexação Automática, Comprimir tudo, Renomear tudo, Salvar tudo ... Relatório rápido, Contar e-mails selecionados...
  • Lixo eletrônico poderoso por costume; Remover e-mails e contatos duplicados... Permite que você faça de maneira mais inteligente, rápida e melhor no Outlook.
tiro kutools aba kutools do outlook 1180x121
tiro kutools outlook kutools mais guia 1180x121
 
Comentários (0)
Ainda não há classificações. Seja o primeiro a avaliar!
Não há comentários postados aqui ainda
Deixe o seu comentário
Postando como convidado
×
Avalie esta postagem:
0   Personagens
Locais sugeridos