Cum să îmbinați rapid elemente din mai multe dosare fără duplicate în Outlook

Dacă doriți să îmbinați toate elementele din mai multe foldere Outlook și să vă asigurați că nu există duplicate, puteți utiliza metoda introdusă în acest articol. Folosește codul VBA pentru a vă ajuta să realizați acest lucru ca un dop.

Uneori, este posibil să doriți să îmbinați elemente din mai multe foldere Outlook, cum ar fi îmbinarea tuturor contactelor din mai multe dosare Outlook. În această situație, dacă există niște contacte duplicate printre aceste foldere, trebuie să sperați că duplicatele pot fi eliminate automat în timpul îmbinării. În această circumstanță, puteți utiliza următorul cod VBA pentru a-l realiza fără efort.

Îmbinați elemente din mai multe dosare fără duplicate

1. Pentru a starcu, lansați aplicația Outlook.
2. Apoi, ar trebui să accesați editorul Outlook VBA apăsând butonul „Alt + F11” din ecranul principal Outlook.
3. Apoi, în fereastra „Microsoft Visual Basic for Applications”, trebuie să deschideți un modul care nu este utilizat.
4. După aceea, ar trebui să copiați următorul cod VBA în acest modul.

'Here we take "merging two folders" as an example
Sub MergeOutlookFolders_WithoutDuplicates()
    Dim objSourceFolder As Outlook.Folder
    Dim objTargetFolder As Outlook.Folder
    Dim i, n, x As Long
    Dim objItem As Object
    Dim objDictionary As Object
    Dim strKey As String
 
    Set objSourceFolder = Application.Session.PickFolder
    Set objTargetFolder = Application.Session.PickFolder

    If objSourceFolder.DefaultItemType <> objTargetFolder.DefaultItemType Then
       MsgBox "Error: The two folders are not in same type!", vbExclamation + vbOKOnly
    Else
       'Merge the two folders
       For i = objSourceFolder.Items.count To 1 Step -1
           Set objItem = objSourceFolder.Items.Item(i)
           objItem.Move objTargetFolder
       Next i
 
       Set objDictionary = CreateObject("scripting.dictionary")
 
       'Remove the duplicates
       x = 0
       For n = objTargetFolder.Items.count To 1 Step -1
           Set objItem = objTargetFolder.Items.Item(n)
 
           Select Case objItem.Class
                  Case olMail
                       strKey = objItem.Subject & "," & objItem.Body & "," & objItem.SentOn
                  Case olAppointment
                       strKey = objItem.Subject & "," & objItem.Start & "," & objItem.Duration & "," & objItem.Location & "," & objItem.Body
                  Case olContact
                       strKey = objItem.FullName & "," & objItem.Email1Address & "," & objItem.Email2Address & "," & objItem.Email3Address
                  Case olTask
                       strKey = objItem.Subject & "," & objItem.StartDate & "," & objItem.DueDate & "," & objItem.Body
           End Select
 
           strKey = Replace(strKey, ", ", Chr(32))
 
           If objDictionary.Exists(strKey) = True Then
              objItem.Delete
              x = x + 1
           Else
              objDictionary.Add strKey, True
           End If
      Next n
 
      'Prompt you of the count of removed duplicates
      If x <> 0 Then
         MsgBox x & " duplicates removed when merging!", vbInformation + vbOKOnly
      End If
    End If
End Sub

5. Mai târziu, trebuie să verificați setările macrocomenzilor Outlook, asigurându-vă că macrocomanda este activată.
6. În sfârșit poți încerca.

• În primul rând, înapoi la noua fereastră de modul.
• Apoi apăsați butonul F5 pentru a declanșa această macrocomandă.
• Apoi trebuie să selectați cele două foldere care urmează să fie îmbinate. Primul este cel sursă, iar al doilea este cel taria unul.
• După aceea, Outlook va începe să mute toate elementele din folderul sursă în taria una. De asemenea, între timp, duplicatele vor fi eliminate automat.
• În cele din urmă, este posibil să primiți un mesaj care vă solicită numărul de duplicate eliminate, cum ar fi captura de ecran de mai jos:

Micile erori pot duce la mari accidente

În ciuda faptului că este încărcat cu cantități de funcții excelente, Outlook este încă susceptibil la erori și corupție. Poate că ați întâmpinat diverse probleme cu Outlook. Mulți utilizatori sunt înclinați să ignore erorile aleatorii. Cu toate acestea, eroarea minusculă este cea care declanșează blocări grave ale Outlook, ceea ce va pune în pericol fișierul Outlook. Prin urmare, nu trebuie să ignorați erorile mici. În schimb, ar trebui să le eliminați cât mai curând posibil. În plus, ar fi bine să păstrați un apartament reparație PST instrument, cum ar fi DataNumen Outlook Repair. Prin rata sa ridicată de recuperare, acest utilitar a depășit semenii săi.

Introducerea autorului:

Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv sql corupt și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com