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.
Dite addio all'inefficienza di Outlook! Kutools per Outlook rende più facile l'elaborazione di email in batch - ora con funzionalità AI gratuite! Scarica Kutools per Outlook Ora!!
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 notizie: Kutools per Outlook lancia la versione gratuita!
Scopri il nuovissimo Kutools per Outlook con oltre100 funzionalità straordinarie! Clicca per scaricare ora!
📧 Automazione Email: Risposta automatica (disponibile per POP e IMAP) / Programma invio Email / CC/BCC automatico tramite Regola durante l’invio delle Email / Inoltro automatico (Regola avanzata) / Aggiungi Saluto automaticamente / Dividi automaticamente Email multi-destinatario in messaggi singoli ...
📨 Gestione Email: Richiama Email / Blocca Email fraudulent (tramite Oggetto e altri parametri) / Elimina Email Duplicato / Ricerca Avanzata / Organizza cartelle ...
📁 Allegati Pro: Salva in Batch / Distacca in Batch / Comprimi in Batch / Salvataggio automatico / Distacca automaticamente / Auto Comprimi ...
🌟 Magia Interfaccia: 😊Più emoji belle e divertenti / Notifiche per le email importanti in arrivo / Riduci Outlook al posto di chiuderlo ...
👍 Funzioni rapide: Rispondi a Tutti con Allegati / Email Anti-Phishing / 🕘Mostra il fuso orario del mittente ...
👩🏼🤝👩🏻 Contatti & Calendario: Aggiungi in Batch contatti dalle Email selezionate / Dividi un Gruppo di Contatti in Gruppi singoli / Rimuovi promemoria di compleanno ...
Utilizza Kutools nella lingua che preferisci – supporta Inglese, Spagnolo, Tedesco, Francese, Cinese e oltre40 altre!
🚀 Download con un solo clic — Ottieni tutti gli Add-in per Office
Consigliato: Kutools per Office (5-in-1)
Un solo clic per scaricare cinque installatori contemporaneamente — Kutools per Excel, Outlook, Word, PowerPoint e Office Tab Pro. Clicca per scaricare ora!
- ✅ Comodità con un solo clic: scarica tutti e cinque i pacchetti di installazione in una sola azione.
- 🚀 Pronto per qualsiasi attività Office: installa i componenti aggiuntivi necessari, quando ti servono.
- 🧰 Inclusi: Kutools per Excel / Kutools per Outlook / Kutools per Word / Office Tab Pro / Kutools per PowerPoint