Como mesclar rapidamente itens de várias pastas sem duplicatas no Outlook

Se você deseja mesclar todos os itens de várias pastas do Outlook e garantir que não sejam duplicados, use o método apresentado neste artigo. Ele está usando o código VBA para ajudá-lo a realizá-lo como uma rolha.

Às vezes, você pode querer mesclar itens de várias pastas do Outlook, como mesclar todos os contatos de várias pastas de contatos do Outlook. Nesta situação, se houver alguns contatos duplicados entre essas pastas, você deve esperar que as duplicatas possam ser removidas automaticamente durante a mesclagem. Nessa circunstância, você pode usar o seguinte código VBA para realizá-lo com facilidade.

Mesclar itens de várias pastas sem duplicatas

1. Para% start com, inicie seu aplicativo Outlook.
2. Em seguida, você deve acessar o editor VBA do Outlook pressionando o botão de tecla “Alt + F11” na tela principal do Outlook.
3. Em seguida, na janela “Microsoft Visual Basic for Applications”, você precisa abrir um módulo que não está sendo usado.
4. Depois disso, você deve copiar o seguinte código VBA para este módulo.

'Here we take "merging two folders" as an example
Sub MergeOutlookFolders_WithoutDuplicates()
    Dim objSourceFolder As Outlook.Folder
    Dim objTargetFolder As Outlook.Folder
    Dim i, n, x As Long
    Dim objItem As Object
    Dim objDictionary As Object
    Dim strKey As String
 
    Set objSourceFolder = Application.Session.PickFolder
    Set objTargetFolder = Application.Session.PickFolder

    If objSourceFolder.DefaultItemType <> objTargetFolder.DefaultItemType Then
       MsgBox "Error: The two folders are not in same type!", vbExclamation + vbOKOnly
    Else
       'Merge the two folders
       For i = objSourceFolder.Items.count To 1 Step -1
           Set objItem = objSourceFolder.Items.Item(i)
           objItem.Move objTargetFolder
       Next i
 
       Set objDictionary = CreateObject("scripting.dictionary")
 
       'Remove the duplicates
       x = 0
       For n = objTargetFolder.Items.count To 1 Step -1
           Set objItem = objTargetFolder.Items.Item(n)
 
           Select Case objItem.Class
                  Case olMail
                       strKey = objItem.Subject & "," & objItem.Body & "," & objItem.SentOn
                  Case olAppointment
                       strKey = objItem.Subject & "," & objItem.Start & "," & objItem.Duration & "," & objItem.Location & "," & objItem.Body
                  Case olContact
                       strKey = objItem.FullName & "," & objItem.Email1Address & "," & objItem.Email2Address & "," & objItem.Email3Address
                  Case olTask
                       strKey = objItem.Subject & "," & objItem.StartDate & "," & objItem.DueDate & "," & objItem.Body
           End Select
 
           strKey = Replace(strKey, ", ", Chr(32))
 
           If objDictionary.Exists(strKey) = True Then
              objItem.Delete
              x = x + 1
           Else
              objDictionary.Add strKey, True
           End If
      Next n
 
      'Prompt you of the count of removed duplicates
      If x <> 0 Then
         MsgBox x & " duplicates removed when merging!", vbInformation + vbOKOnly
      End If
    End If
End Sub

5. Mais tarde, você precisa verificar as configurações de macro do Outlook, garantindo que a macro esteja habilitada.
6. Finalmente você pode tentar.

• Em primeiro lugar, volte para a janela do novo módulo.
• Em seguida, pressione o botão da tecla F5 para acionar esta macro.
• Então você precisa selecionar as duas pastas a serem mescladas. A primeira é a fonte e a segunda é a tarpegue um.
• Depois disso, o Outlook começará a mover todos os itens da pasta de origem para o tarpegue um. Além disso, enquanto isso, as duplicatas serão removidas automaticamente.
• Por fim, você pode receber uma mensagem solicitando a contagem de duplicatas removidas, como na captura de tela abaixo:

Pequenos erros podem levar a grandes falhas

Apesar de carregado com quantidades de funções excelentes, o Outlook ainda é suscetível a erros e corrupção. Talvez você tenha encontrado vários problemas do Outlook. Muitos usuários tendem a ignorar os erros aleatórios. No entanto, é o pequeno erro que desencadeia falhas graves do Outlook, o que comprometerá o arquivo do Outlook. Portanto, você não deve desconsiderar pequenos erros. Em vez disso, você deve eliminá-los o mais rápido possível. Além disso, é melhor você manter um apt Reparação de PST ferramenta, como DataNumen Outlook Repair. Por meio de sua alta taxa de recuperação, esse utilitário superou seus pares.

Introdução do autor:

Shirley Zhang é especialista em recuperação de dados em DataNumen, Inc., líder mundial em tecnologias de recuperação de dados, incluindo sql corrompido e produtos de software de reparo do Outlook. Para mais informações visite www.datanumen.com