Come unire due cartelle in una singola cartella in Outlook senza creare duplicati?

In Outlook potresti gestire numerosi account email, ciascuno con molte cartelle; a volte, però, ti capita di voler unire due cartelle in una sola ed eliminare i messaggi duplicati. Come puoi eseguire questa operazione in modo rapido ed efficiente? In questo articolo ti propongo un codice VBA per gestirla nel modo più veloce possibile direttamente da Outlook.

Unisci due cartelle senza duplicati in una sola tramite codice VBA

Unisci più cartelle e rimuovi gli 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 utilizzare un codice VBA seguendo questi passaggi:

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

2. Fai doppio clic su «ThisOutlookSession» in "Project1" nel riquadro a sinistra, quindi copia e incolla il codice seguente 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

3. Fai clic su «Strumenti» > «Riferimenti» e, nella finestra di dialogo che si apre, seleziona la casella «Microsoft Scripting Runtime».

4. Fai clic su «OK», quindi premi il tasto "F5" per eseguire il codice. Si aprirà una finestra di dialogo che ti chiederà di selezionare la prima cartella da unire (nota: tutti gli elementi della prima cartella verranno rimossi dopo l’unione con la seconda).

5. Fai clic su «OK». Nella seconda finestra di dialogo, seleziona la seconda cartella da confrontare e unire.

6. Fai clic su «OK». Tutti gli elementi della prima cartella verranno spostati nella seconda e i duplicati saranno automaticamente rimossi.

---

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

Se non hai dimestichezza con il codice VBA, prova “Kutools per Outlook”, un pratico componente aggiuntivo che, grazie alle sue utility “Organizza cartelle” ed “Email duplicate”, ti permette di gestire questa attività in modo facile e rapido.

Unisci più cartelle

1. Fai clic su «KUTOOLS PLUS» > «Organizza cartelle», quindi nella finestra di dialogo «Organizza più cartelle in una cartella» seleziona «Aggiungi» per includere nella lista le cartelle che vuoi unire e indica una cartella come destinazione.

2. Fai clic su «OK» > «OK». Tutti gli elementi delle cartelle selezionate sono ora uniti nella cartella specificata.

Rimuovi gli elementi duplicati

3. Fai clic su «Kutools» > «Elimina duplicati» > «Email duplicate». Nella finestra di dialogo «Email duplicate», seleziona la cartella in cui desideri rimuovere i duplicati.

4. Fai clic su «Avanti». Nella finestra di dialogo «Impostazioni Email duplicate», definisci i criteri da usare per confrontare i messaggi. Poi seleziona l’opzione «Elimina email duplicate» e scegli «Confronta all'interno di una singola cartella».

5. Fai clic su «Avanti» > «Avanti» per filtrare le email duplicate, quindi premi il pulsante «Elimina messaggi duplicati» > «OK» per rimuoverle correttamente.