Note: The other languages of the website are Google-translated. Back to English

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

doc unire cartelle senza duplicati 1

3. Clic Strumenti > Referenze e nella finestra di dialogo popping, seleziona Runtime di script Microsoft casella di controllo.

doc unire cartelle senza duplicati 2 doc freccia destra doc unire cartelle senza duplicati 3

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).
doc unire cartelle senza duplicati 4

5. Clic OK, nella seconda finestra di dialogo popping, scegli la seconda cartella che desideri confrontare e unire.
doc unire cartelle senza duplicati 5

6. Clic OK, ora, tutti gli elementi nella prima cartella verranno spostati nella seconda cartella e anche quelli duplicati verranno rimossi.
doc unire cartelle senza duplicati 6


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

Se non hai familiarità con il codice VBA, prova a usare Kutools per Outlook, un pratico componente aggiuntivo, con il suo Consolidamento delle cartelle di Email duplicate utilità che possono gestire facilmente e rapidamente questo lavoro.

Kutools for Outlook , Include Più di 100 potenti funzionalità e strumenti per Microsoft Outlook 2016, 2013, 2010 e Office 365.

Installazione gratuita Kutools per Outlook, quindi segui 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.
doc consolidare e rimuovere duplicati 1

2. Clic OK > OK. Ora tutti gli elementi nelle cartelle selezionate sono stati uniti in una cartella specifica.
doc consolidare e rimuovere duplicati 2

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.
doc consolidare e rimuovere duplicati 3

4. Clic Successivain 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.
doc consolidare e rimuovere duplicati 4

5. Clic Successiva > Successiva, le email duplicate sono state filtrate. Clic Elimina il messaggio duplicato pulsante> OK per rimuovere correttamente le email duplicate.
doc consolidare e rimuovere duplicati 5 doc unire cartelle senza duplicati 6


Kutools for Outlook: porta 100 funzionalità avanzate in Outlook e semplifica notevolmente il lavoro!

  • Auto CC / BCC dalle regole durante l'invio di e-mail; Avanzamento automatico Email multiple personalizzate; Risposta automatica senza server di scambio e più funzioni automatiche ...
  • Avviso BCC - mostra il messaggio quando provi a rispondere a tutti se il tuo indirizzo e-mail è nell'elenco BCC; Ricorda quando mancano allegatie altre funzioni di promemoria ...
  • Rispondi (tutti) con tutti gli allegati nella conversazione di posta; Rispondi a molte email in secondi; Aggiunta automatica di saluto quando rispondi; Aggiungi la data all'oggetto ...
  • Strumenti per gli allegati: gestisci tutti gli allegati in tutti i messaggi, Scollegamento automatico, Comprimi tutto, Rinomina tutto, Salva tutto... Rapporto rapido, Conta le email selezionate...
  • E-mail spazzatura potenti per abitudine; Rimuovi messaggi e contatti duplicati... Consentono di fare in modo più intelligente, veloce e migliore in Outlook.
girato kutools outlook scheda kutools 1180x121
girato kutools outlook kutools plus tab 1180x121
 
Commenti (0)
Ancora nessuna valutazione. Puoi essere il primo a votare!
Non ci sono ancora commenti pubblicati qui
Lasciate i vostri commenti
Pubblicazione come ospite
×
Valuta questo post:
0   Personaggi
Posizioni suggerite

Seguici

Copyright © 2009 - www.extendoffice.com. | Tutti i diritti riservati. Offerto da ExtendOffice, | Mappa del sito
Microsoft e il logo Office sono marchi o marchi registrati di Microsoft Corporation negli Stati Uniti e / o in altri paesi.
Protetto da Sectigo SSL