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
3. clic Instrumente > Referinte și în caseta de dialog popping, verificați Runtime Microsoft Scripting caseta.
 |  |  |
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).
5. clic OK, în al doilea dialog popping, alegeți al doilea folder cu care doriți să comparați și să fuzionați.
6. clic OK, acum, toate elementele din primul folder vor fi mutate în al doilea folder, iar cele duplicate sunt, de asemenea, eliminate.
Î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.
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.
2. clic OK > OK. Acum, toate elementele din folderele selectate au fost îmbinate într-un folder specific.
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.
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.
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.
Cele mai bune instrumente de productivitate de birou
Ultime știri: Kutools pentru lansări Outlook Versiune gratuită!
Experimentați noul Kutools pentru Outlook Versiune GRATUITĂ cu peste 70 de funcții incredibile, pe care o poți folosi PENTRU TOTDEAUNA! Faceți clic pentru a descărca acum!
📧 Automatizare e-mail: Răspuns automat (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: Rechemare e-mailuri / 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 Pro: Salvaț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 / Amintește-ți când vin e-mailuri importante / 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 ...
