Snel items uit meerdere mappen samenvoegen zonder duplicaten in Outlook

Outlook-oplossingen 29 september 2025

Als u alle items uit meerdere Outlook-mappen wilt samenvoegen en ervoor wilt zorgen dat er geen duplicaten zijn, kunt u de methode gebruiken die in dit artikel is geïntroduceerd. Het gebruikt VBA-code om u te helpen het als een kurk te bereiken.

Voeg snel items uit meerdere mappen samen zonder duplicaten in Outlook

Soms wilt u items uit verschillende Outlook-mappen samenvoegen, zoals het samenvoegen van alle contactpersonen van verschillende Outlook-contactpersonenmappen. Als er in deze situatie enkele dubbele contacten tussen deze mappen staan, moet u hopen dat de duplicaten automatisch kunnen worden verwijderd tijdens het samenvoegen. Onder deze omstandigheden kunt u de volgende VBA-code gebruiken om deze moeiteloos te realiseren.

Voeg items uit meerdere mappen samen zonder duplicaten

  1. Aan starStart uw Outlook-applicatie.
  2. Vervolgens moet u de Outlook VBA-editor openen door op de toets "Alt + F11" in het hoofdscherm van Outlook te drukken.
  3. Vervolgens moet u in het venster “Microsoft Visual Basic for Applications” een module openen die niet wordt gebruikt.
  4. Daarna moet u de volgende VBA-code naar deze module kopiëren.
'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

VBA-code - Voeg items uit meerdere mappen samen zonder duplicaten

  1. Later moet u uw Outlook-macro-instellingen controleren en ervoor zorgen dat macro is ingeschakeld.
  2. Eindelijk kun je het proberen.
  • Allereerst terug naar het nieuwe modulevenster.
  • Druk vervolgens op de F5-toets om deze macro te activeren.
  • Vervolgens moet u de twee mappen selecteren die u wilt samenvoegen. De eerste is de broncode en de tweede is de tarkoop er een.
  • Daarna begint Outlook met het verplaatsen van alle items van de bronmap naar het tarkrijg er een. In de tussentijd worden duplicaten ook automatisch verwijderd.
  • Uiteindelijk kunt u een bericht ontvangen waarin het aantal verwijderde duplicaten wordt gevraagd, zoals in de onderstaande schermafbeelding:Bericht waarin het aantal verwijderde duplicaten wordt gevraagd

Kleine fouten kunnen tot grote crashes leiden

Ondanks het grote aantal uitstekende functies, is Outlook nog steeds gevoelig voor fouten en corruptie. Misschien bent u verschillende Outlook-problemen tegengekomen. Veel gebruikers zijn geneigd de willekeurige fouten te negeren. Het is echter de kleine fout die ernstige Outlook-crashes veroorzaakt, waardoor het Outlook-bestand in gevaar komt. Negeer dus geen kleine fouten. In plaats daarvan moet u ze zo snel mogelijk elimineren. Bovendien kun je beter een apt PST-reparatie tool, zoals DataNumen Outlook Repair. Dankzij het hoge herstelpercentage heeft dit hulpprogramma het beter gedaan dan zijn collega's.

Auteur Introductie:

Shirley Zhang is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder beschadigde sql en Outlook-reparatiesoftwareproducten. Voor meer informatie bezoek www.datanumen.com

Reacties zijn gesloten.