Come unire due cartelle senza duplicati in una cartella in Outlook?
In Outlook, potresti avere molti account di posta elettronica con molte cartelle, in alcuni casi, desideri unire due cartelle in una e rimuovere gli elementi duplicati. Come puoi risolvere rapidamente questo lavoro? In questo articolo, presento un codice VBA per aiutarti a gestirlo il più rapidamente possibile in Outlook.
Unisci due cartelle senza duplicati in una per codice VBA
Unisci più cartelle e rimuovi gli elementi duplicati con Kutools per Outlook
Unisci due cartelle senza duplicati in una per codice VBA
Per unire due cartelle in una e rimuovere gli elementi duplicati, puoi gestirli con il codice VBA come segue:
1. Stampa Alt + F11 tasti per abilitare il Microsoft Visual Basic, Applications Edition finestra
2. Fare doppio clic su Questa sessione di Outlook da Project1 nel riquadro sinistro, quindi copia e incolla il codice sottostante nello script destro.
VBA: unisci due cartelle senza diplicati
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. Clic Strumenti > Riferimenti e nella finestra di dialogo popping, seleziona Runtime di script Microsoft casella di controllo.
4. Clic OK. Ora premi F5 chiave per eseguire il codice. Viene visualizzata una finestra di dialogo per ricordarti 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. Clic OK, nella seconda finestra di dialogo popping, scegli la seconda cartella che desideri confrontare e unire.
6. Clic OK, ora, tutti gli elementi nella prima cartella verranno spostati nella seconda cartella e anche quelli duplicati verranno rimossi.
Unisci più cartelle e rimuovi gli elementi duplicati con Kutools per Outlook
Se non hai familiarità con il codice VBA, prova a usare Kutools for Outlook, un pratico componente aggiuntivo, con il suo Consolidamento delle cartelle ed Email duplicate utilità che possono gestire facilmente e rapidamente questo lavoro.
Kutools for Outlook , Inclusioni 100+ potenti funzionalità e strumenti per Microsoft Outlook 2016, 2013, 2010 e Office 365. |
||
Installazione gratuita Kutools per Outlook, quindi esegui i passaggi seguenti:
Unisci più cartelle
1. Clic Kutools Plus > Consolidamento delle cartelle, quindi nel Unisci più cartelle in una finestra di dialogo, fare clic Aggiungi per aggiungere le cartelle all'elenco che verranno unite, scegli una cartella come cartella di destinazione.
2. Clic OK > OK. Ora tutti gli elementi nelle cartelle selezionate sono stati uniti in una cartella specifica.
Rimuovi gli elementi duplicati
3. Clic Kutools > Elimina duplicato > Email duplicate. Quindi in Messaggi duplicati finestra di dialogo, seleziona la cartella in cui desideri rimuovere i duplicati.
4. Clic Avantiin Impostazioni dei messaggi duplicati finestra di dialogo, specifica i criteri che utilizzi per confrontare le email, quindi seleziona Elimina i messaggi duplicati opzione e selezionare Confronta i messaggi duplicati all'interno di una singola cartella.
5. Clic Avanti > Avanti, le email duplicate sono state filtrate. Clic Elimina il messaggio duplicato pulsante> OK per rimuovere correttamente le email duplicate.
I migliori strumenti per la produttività in ufficio
Kutools for Outlook - Oltre 100 potenti funzionalità per potenziare il tuo Outlook
🤖 Assistente di posta AI: E-mail istantanee professionali con la magia dell'intelligenza artificiale: risposte geniali con un solo clic, tono perfetto, padronanza multilingue. Trasforma l'e-mail senza sforzo! ...
???? Automazione di posta elettronica: Fuori sede (disponibile per POP e IMAP) / Pianifica l'invio di e-mail / CC/BCC automatico in base alle regole durante l'invio di e-mail / Inoltro automatico (regole avanzate) / Aggiunta automatica di saluto / Suddividi automaticamente le email con più destinatari in singoli messaggi ...
📨 gestione e-mail: Richiama facilmente le email / Blocca le email truffe per soggetto e altri / Elimina email duplicate / Ricerca avanzata / Consolidare cartelle ...
📁 Allegati Pro: Salvataggio in batch / Stacca batch / Comprimi in lotti / Salvataggio automatico / Scollegamento automatico / Comprimi automaticamente ...
🌟 Magia dell'interfaccia: 😊Più emoji carini e fantastici / Aumenta la tua produttività in Outlook con le visualizzazioni a schede / Riduci a icona Outlook invece di chiuderlo ...
👍 Meraviglie con un clic: Rispondi a tutti con gli allegati in arrivo / E-mail anti-phishing / 🕘Mostra il fuso orario del mittente ...
👩🏼🤝👩🏻 Contatti e calendario: Aggiungi in batch contatti dalle email selezionate / Dividere un gruppo di contatti in singoli gruppi / Rimuovi promemoria compleanno ...
Al di sopra Caratteristiche 100 Attendi la tua esplorazione! Clicca qui per scoprire di più.