Salt la conținutul principal

Cum se îmbină două foldere fără duplicate într-un singur folder în Outlook?

În Outlook, este posibil să aveți multe conturi de e-mail cu mai multe foldere, în unele cazuri, doriți să îmbinați două foldere într-unul și să eliminați elementele duplicate. Cum poți rezolva rapid acest loc de muncă? În acest articol, introduc un cod VBA pentru a vă ajuta să îl gestionați cât mai repede posibil în Outlook.

Îmbinați două foldere fără duplicate într-unul prin codul VBA

Îmbinați mai multe foldere și eliminați elementele duplicate cu Kutools pentru Outlook


Îmbinați două foldere fără duplicate într-unul prin codul VBA

Pentru a îmbina două foldere într-unul singur și a elimina elementele duplicate, îl puteți gestiona cu codul VBA după următorii pași:

1. presa Alt + F11 tastele pentru a activa Microsoft Visual Basic pentru aplicații fereastră

2. Faceți dublu clic pe Această sesiune Outlook din Project1 în panoul din stânga, apoi copiați și lipiți codul de mai jos în scriptul din dreapta.

VBA: îmbinați două foldere fără duplicate

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

dosare de îmbinare doc fără duplicate 1

3. clic Instrumente > Referinte și în caseta de dialog popping, verificați Runtime Microsoft Scripting caseta.

dosare de îmbinare doc fără duplicate 2 doc săgeată dreapta dosare de îmbinare doc fără duplicate 3

4. clic OK. Acum apăsați F5 tasta pentru a rula codul. Va apărea o casetă de dialog pentru a vă reaminti să selectați primul folder pe care doriți să îl îmbinați (notă: toate elementele din primul folder vor fi eliminate după îmbinarea cu al doilea folder).
dosare de îmbinare doc fără duplicate 4

5. clic OK, în al doilea dialog popping, alegeți al doilea folder cu care doriți să comparați și să fuzionați.
dosare de îmbinare doc fără duplicate 5

6. clic OK, acum, toate elementele din primul folder vor fi mutate în al doilea folder, iar cele duplicate sunt, de asemenea, eliminate.
dosare de îmbinare doc fără duplicate 6


Îmbinați mai multe foldere și eliminați elementele duplicate cu Kutools pentru Outlook

Dacă nu sunteți familiarizați cu codul VBA, încercați să utilizați Kutools pentru Outlook, un supliment la îndemână, cu Consolidarea dosarelor și E-mailuri duplicate utilitare care se pot descurca cu ușurință și rapid la acest job.

Kutools for Outlook , Include 100+ funcții și instrumente puternice pentru Microsoft Outlook 2016, 2013, 2010 și Office 365.

Instalare gratuită Kutools pentru Outlook, apoi faceți pașii de mai jos:

Îmbinați mai multe foldere

1. clic Kutools Plus > Consolidarea dosarelor, apoi în Îmbinați mai multe foldere într-unul singur dialog, faceți clic pe Adăuga pentru a adăuga folderele în listă care vor fi îmbinate, alegeți un folder ca folder de destinație.
doc consolidează și elimină duplicatul 1

2. clic OK > OK. Acum, toate elementele din folderele selectate au fost îmbinate într-un folder specific.
doc consolidează și elimină duplicatul 2

Eliminați elementele duplicate

3. clic Kutools > Ștergeți duplicatul > E-mailuri duplicate. Apoi în Mesaje duplicate , verificați folderul pe care doriți să îl eliminați.
doc consolidează și elimină duplicatul 3

4. clic Pagina Următoare →, În Setări pentru mesaje duplicate , specificați criteriile pe care le utilizați pentru a compara e-mailurile, apoi verificați Ștergeți mesajele duplicat și selectați Comparați pentru mesajele duplicate dintr-un singur folder.
doc consolidează și elimină duplicatul 4

5. clic Pagina Următoare → > Pagina Următoare →, e-mailurile duplicate au fost filtrate. Clic Ștergeți mesajul duplicat buton> OK pentru a elimina e-mailurile duplicate cu succes.
doc consolidează și elimină duplicatul 5 dosare de îmbinare doc fără duplicate 6


Cele mai bune instrumente de productivitate de birou

Kutools pentru Outlook - Peste 100 de funcții puternice pentru a vă supraalimenta Outlook

📧 Automatizare e-mail: În afara biroului (disponibil pentru POP și IMAP)  /  Programați trimiterea de e-mailuri  /  CC/BCC automat după reguli la trimiterea e-mailului  /  Redirecționare automată (Reguli avansate)   /  Adăugare automată felicitare   /  Împărțiți automat e-mailurile cu mai mulți destinatari în mesaje individuale ...

📨 Managementul e-mail: Amintește-ți cu ușurință e-mailurile  /  Blocați e-mailurile înșelătorii de către subiecți și alții  /  Ștergeți e-mailurile duplicate  /  Cautare Avansata  /  Consolidați foldere ...

📁 Atașamente ProSalvați în serie  /  Detașare lot  /  Compresă în loturi  /  Salvare automata   /  Detașare automată  /  Comprimare automată ...

🌟 Magia interfeței: 😊Mai multe emoji drăguțe și cool   /  Îmbunătățiți-vă productivitatea Outlook cu vizualizările cu file  /  Minimizați Outlook în loc să închideți ...

???? Minuni cu un singur clic: Răspundeți tuturor cu atașamentele primite  /   E-mailuri anti-phishing  /  🕘Afișați fusul orar al expeditorului ...

👩🏼‍🤝‍👩🏻 Contacte și calendar: Adăugați în lot contacte din e-mailurile selectate  /  Împărțiți un grup de contact în grupuri individuale  /  Eliminați mementouri de ziua de naștere ...

Peste 100 Caracteristici Așteaptă explorarea ta! Click aici pentru a descoperi mai multe.

 

 

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations