Come unire due cartelle senza duplicati in una sola cartella in Outlook?
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
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).
5. Clicca su "OK". Nella seconda finestra di dialogo, scegli la seconda cartella con cui vuoi confrontare ed effettuare l'unione.
6. Clicca su "OK". Ora, tutti gli elementi della prima cartella verranno spostati nella seconda cartella, e quelli duplicati verranno rimossi.
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.
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.
I migliori strumenti per la produttività in Office
Ultime novità: Kutools per Outlook lancia la versione gratuita!
Scopri la nuovissima versione GRATUITA di Kutools per Outlook con oltre70 funzionalità straordinarie, da utilizzare PER SEMPRE! Clicca per scaricarla subito!
📧 Automazione Email: Risposta automatica (disponibile per POP e IMAP) / Programma invio email / CC/BCC automatico tramite regola durante l'invio / Inoltro automatico (Regola avanzata) / Aggiungi saluto automaticamente / Suddividi automaticamente le email con più destinatari in messaggi individuali...
📨 Gestione Email: Richiama Email / Blocca email di phishing per oggetto e altri criteri / Elimina email duplicate / Ricerca Avanzata / Organizza cartelle...
📁 Allegati Pro: Salva in blocco / Distacca in blocco / Comprimi in blocco / Salvataggio automatico / Distacca automaticamente / Auto Comprimi...
🌟 Magia dell'interfaccia: 😊Più emoji belle e originali / Notifiche per email importanti / Riduci Outlook a icona invece di chiuderlo...
👍 Funzioni rapide: Rispondi a Tutti con Allegati / Email anti-phishing / 🕘Mostra il fuso orario del mittente...
👩🏼🤝👩🏻 Contatti & Calendario: Aggiungi in blocco contatti dalle email selezionate / Dividi un gruppo di contatti in gruppi individuali / Rimuovi promemoria di compleanno...
