Hur man snabbt slår samman objekt från flera mappar utan duplikat i Outlook

Outlook-lösningar September 29, 2025

Om du vill slå samman alla objekt från flera Outlook-mappar och försäkra att inga dubbletter kan du använda metoden som introduceras i den här artikeln. Det använder VBA-kod för att hjälpa dig att uppnå det som en kork.

Sammanfoga snabbt objekt från flera mappar utan dubbletter i Outlook

Ibland kanske du vill slå samman objekt från flera Outlook-mappar, som att slå samman alla kontakter i flera Outlook-kontaktmappar. I det här fallet, om det finns några dubblerade kontakter mellan dessa mappar, måste du hoppas att dubbletterna kan tas bort automatiskt under sammanslagningen. Under denna omständighet kan du använda följande VBA-kod för att enkelt förverkliga den.

Sammanfoga objekt från flera mappar utan duplikat

  1. Till starstarta din Outlook-applikation.
  2. Sedan borde du komma åt Outlook VBA-redigeraren genom att trycka på "Alt + F11" -tangentknappen på Outlook-huvudskärmen.
  3. Därefter måste du i fönstret “Microsoft Visual Basic for Applications” öppna en modul som inte används.
  4. Därefter ska du kopiera följande VBA-kod till den här 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-kod - Slå ihop objekt från flera mappar utan duplikat

  1. Senare måste du kolla in dina Outlook-makroinställningar och se till att makrot är aktiverat.
  2. Äntligen kan du prova.
  • För det första, tillbaka till det nya modulfönstret.
  • Tryck sedan på F5-tangenten för att utlösa detta makro.
  • Sedan måste du välja de två mappar som ska slås samman. Den första är källan, och den andra är tarfå en.
  • Därefter börjar Outlook flytta alla objekt från källmappen till tarfå en. Under tiden tas dubbletter bort automatiskt.
  • I slutändan kan du få ett meddelande som ber om antalet raderade dubbletter, som skärmdumpen nedan:Meddelande som ber om antalet borttagna dubbletter

Små fel kan leda till stora kraschar

Trots att det finns många utmärkta funktioner är Outlook fortfarande mottagligt för fel och korruption. Du kanske har stött på olika Outlook-problem. Många användare är benägna att ignorera slumpmässiga fel. Det är dock det lilla felet som utlöser allvarliga Outlook-kraschar, vilket kommer att äventyra Outlook-filen. Således bör du inte bortse från några små fel. Istället bör du eliminera dem så snart som möjligt. Dessutom borde du ha en apt PST-reparation verktyg, såsom DataNumen Outlook Repair. Via dess höga återhämtningsgrad har detta verktyg axlat över sina kamrater.

Författarintroduktion:

Shirley Zhang är expert på dataåterställning DataNumen, Inc., som är världsledande inom teknik för återställning av data, inklusive skadat sql och Outlook-programvara för reparationsprogramvara. För mer information besök www.datanumen.com

Kommentarer är stängda.