Ako rýchlo zlúčiť položky z viacerých priečinkov bez duplikátov v programe Outlook

Ak chcete zlúčiť všetky položky z viacerých priečinkov programu Outlook a zabezpečiť duplikát, môžete použiť metódu uvedenú v tomto článku. Používa kód VBA, aby ste to dosiahli ako korok.

Niekedy je vhodné zlúčiť položky z niekoľkých priečinkov programu Outlook, napríklad zlúčiť všetky kontakty z niekoľkých priečinkov kontaktov programu Outlook. V takom prípade, ak sa v týchto priečinkoch nachádzajú duplicitné kontakty, musíte dúfať, že duplikáty sa dajú počas zlúčenia automaticky odstrániť. Za týchto okolností môžete využiť nasledujúci kód VBA na jeho ľahké uskutočnenie.

Zlúčte položky z viacerých priečinkov bez duplikátov

1. K start s, spustite aplikáciu Outlook.
2. Potom by ste mali vstúpiť do editora Outlook VBA stlačením klávesovej skratky „Alt + F11“ na hlavnej obrazovke Outlooku.
3. Ďalej v okne „Microsoft Visual Basic for Applications“ musíte otvoriť modul, ktorý sa nepoužíva.
4. Potom by ste mali skopírovať nasledujúci kód VBA do tohto modulu.

'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. Neskôr budete musieť skontrolovať nastavenia makra programu Outlook a skontrolovať, či je makro povolené.
6. Nakoniec to môžete vyskúšať.

• Najskôr späť do okna nového modulu.
• Ďalej stlačte toto klávesu F5 na spustenie tohto makra.
• Potom musíte vybrať dva priečinky, ktoré sa majú zlúčiť. Prvý je zdrojový a druhý je tardostať jeden.
• Potom program Outlook začne presúvať všetky položky zo zdrojového priečinka do priečinka tardostať jeden. Medzitým sa tiež automaticky odstránia duplikáty.
• Nakoniec môžete dostať správu vyzývajúcu na počet odstránených duplikátov, napríklad snímka obrazovky nižšie:

Drobné chyby môžu viesť k veľkým haváriám

Napriek tomu, že je program Outlook nabitý množstvom vynikajúcich funkcií, je stále náchylný na chyby a poškodenie. Možno ste sa stretli s rôznymi problémami s programom Outlook. Mnoho používateľov má tendenciu ignorovať náhodné chyby. Je to však drobná chyba, ktorá spôsobuje vážne zlyhania Outlooku, čo by mohlo ohroziť súbor Outlooku. Preto by ste nemali ignorovať žiadne malé chyby. Namiesto toho by ste ich mali čo najskôr vylúčiť. Ďalej si radšej nechajte trefné slovo Oprava PST nástroj, ako napr DataNumen Outlook Repair. Vďaka svojej vysokej miere zotavenia sa tento nástroj presunul cez svojich kolegov.

Úvod autora:

Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane poškodený sql a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S