Come unire due cartelle senza duplicati in una sola cartella in Outlook?

Author: Sun Last Modified: 2025-08-06

In Outlook, potresti avere molti account email con numerose cartelle e, in alcuni casi, vorresti unire due cartelle in una sola e rimuovere gli elementi duplicati. Come puoi risolvere rapidamente questo problema? In questo articolo, ti presento un codice VBA per aiutarti a gestirlo nel modo più veloce possibile in Outlook.

Unisci due cartelle senza duplicati in una sola tramite codice VBA

Unisci più cartelle e rimuovi elementi duplicati con Kutools per Outlook

Unisci due cartelle senza duplicati in una sola tramite codice VBA

Per unire due cartelle in una sola e rimuovere gli elementi duplicati, puoi gestirlo con il codice VBA seguendo questi passaggi:

1. Premi i tasti "Alt + F11" per aprire la finestra "Microsoft Visual Basic for Applications".

2. Fai doppio clic su "ThisOutlookSession" da "Project1" nel riquadro di sinistra, quindi copia e incolla il codice sottostante nella finestra dello script a destra.

VBA: Unisci due cartelle senza duplicati

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 merge folders without duplicates 1

3. Clicca su "Strumenti" > "Riferimenti", e nella finestra di dialogo che appare, seleziona la casella di controllo "Microsoft Scripting Runtime".

4. Clicca su "OK". Ora premi il tasto "F5" per eseguire il codice. Apparirà una finestra di dialogo che ti ricorderà di selezionare la prima cartella che desideri unire (nota: tutti gli elementi nella prima cartella verranno rimossi dopo l'unione con la seconda cartella).
doc merge folders without duplicates 4

5. Clicca su "OK". Nella seconda finestra di dialogo, scegli la seconda cartella con cui vuoi confrontare ed effettuare l'unione.
doc merge folders without duplicates 5

6. Clicca su "OK". Ora, tutti gli elementi della prima cartella verranno spostati nella seconda cartella, e quelli duplicati verranno rimossi.
doc merge folders without duplicates 6

Unisci più cartelle e rimuovi elementi duplicati con Kutools per Outlook

Se non sei familiare con il codice VBA, prova ad utilizzare "Kutools per Outlook", un pratico componente aggiuntivo, con le sue funzionalità "Organizza cartelle" e "Email duplicate", che possono gestire facilmente e rapidamente questo compito.

Sblocca l'efficienza massima delle email con Kutools per Outlook! Accedi a 70 funzionalità potenti assolutamente gratis, per sempre. Scarica ora la versione gratuita!

Unisci più cartelle

1. Clicca su "Kutools Plus" > "Organizza cartelle", quindi nella finestra di dialogo "Unisci più cartelle in una", clicca su "Aggiungi" per aggiungere le cartelle che desideri unire all'elenco e scegli una cartella come cartella di destinazione.

2. Clicca su "OK" > "OK". Ora tutti gli elementi nelle cartelle selezionate sono stati uniti nella cartella specificata.
doc consolidate and remove duplicate 2

Rimuovi elementi duplicati

3. Clicca su "Kutools" > "Elimina duplicati" > "Email duplicate". Quindi, nella finestra di dialogo "Email duplicate", seleziona la cartella in cui desideri rimuovere i duplicati.

4. Clicca su "Avanti". Nella finestra di dialogo "Impostazioni messaggi duplicati", specifica i criteri che utilizzerai per confrontare le email. Poi seleziona l'opzione "Elimina email duplicate" e scegli "Confronta all'interno di una singola cartella".

5. Clicca su "Avanti" > "Avanti", e le email duplicate verranno filtrate. Clicca sul pulsante "Elimina messaggio duplicato" > "OK" per rimuovere con successo le email duplicate.
doc merge folders without duplicates 6