Slik slår du raskt sammen elementer fra flere mapper uten duplikater i Outlook

Outlook-løsninger September 29, 2025

Hvis du ønsker å slå sammen alle elementene fra flere Outlook-mapper og sikre ingen duplikat, kan du bruke metoden introdusert i denne artikkelen. Den bruker VBA-kode for å hjelpe deg å oppnå det som en kork.

Slå raskt sammen elementer fra flere mapper uten duplikater i Outlook

Noen ganger vil du kanskje slå sammen elementer fra flere Outlook-mapper, som å slå sammen alle kontaktene til flere Outlook-kontaktmapper. I denne situasjonen, hvis det er noen dupliserte kontakter blant disse mappene, må du håpe at duplikatene kan fjernes automatisk under sammenslåing. Under disse omstendighetene kan du bruke følgende VBA-kode for å realisere den uten problemer.

Slå sammen elementer fra flere mapper uten duplikater

  1. Til start med, start Outlook-applikasjonen.
  2. Deretter bør du få tilgang til Outlook VBA-editoren ved å trykke på "Alt + F11" -tasten i hovedskjermbildet i Outlook.
  3. Deretter, i "Microsoft Visual Basic for Applications"-vinduet, må du åpne en modul som ikke brukes.
  4. Etter det bør du kopiere følgende VBA-kode inn i denne modulen.
'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-kode - Slå sammen elementer fra flere mapper uten duplikater

  1. Senere må du sjekke Outlook-makroinnstillingene dine, og sørge for at makroen er aktivert.
  2. Endelig kan du prøve.
  • Først tilbake til det nye modulvinduet.
  • Trykk deretter på F5-tasten for å utløse denne makroen.
  • Deretter må du velge de to mappene som skal slås sammen. Den første er kilden, og den andre er den tarfå en.
  • Etter det vil Outlook begynne å flytte alle elementene fra kildemappen til tarfå en. I mellomtiden vil duplikater også bli fjernet automatisk.
  • Til slutt kan du motta en melding som ber om antall fjernede duplikater, som skjermbildet nedenfor:Melding som ber om antall fjernede duplikater

Små feil kan føre til store krasj

Til tross for lastet med mengder av utmerkede funksjoner, er Outlook fortsatt utsatt for feil og korrupsjon. Kanskje du har støtt på ulike Outlook-problemer. Mange brukere er tilbøyelige til å ignorere de tilfeldige feilene. Det er imidlertid den lille feilen som utløser alvorlige Outlook-krasj, som vil sette Outlook-filen i fare. Derfor bør du ikke se bort fra småfeil. I stedet bør du eliminere dem så snart som mulig. Videre bør du beholde en leilighet PST reparasjon verktøy, for eksempel DataNumen Outlook Repair. Gjennom sin høye utvinningsgrad har dette verktøyet overtatt sine jevnaldrende.

Forfatterintroduksjon:

Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert ødelagt sql og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med

Kommentarer er stengt.