Ako rýchlo odstrániť duplicitné položky programu Outlook v priečinku pomocou VBA

Ak chcete odstrániť duplicitné položky v programe Outlook, vyhľadávanie a odstraňovanie jednej po druhej bude dosť problematické. Toto post vás naučí, ako ho rýchlo dokončiť pomocou programu Outlook VBA.

V mojom predchádzajúcom článku - „Ako rýchlo nájsť a odstrániť duplicitné e-maily v programe Outlook“, môžete sa naučiť trik na vyhľadávanie a odstraňovanie duplicitných e-mailov, ktoré najprv triedia e-maily podľa predmetu, potom podľa času prijatia a potom podľa príloh, aby ste zistili duplicitné položky a nakoniec vybrali duplicitné a stlačte kláves „Delete“. Aj keď je táto metóda zdanlivo o niečo pohodlnejšia, v porovnaní s aplikáciou Outlook VBA je oveľa problematickejšia. Pomocou nasledujúcich kódov VBA môžete rýchlo odstrániť duplicitné položky jednoducho jedným kliknutím, bez ohľadu na e-maily, úlohy, kontakty alebo stretnutia. Teraz čítajte ďalej a získajte podrobné kódy.

Odstráňte duplicitné položky programu Outlook v priečinku

1. K start s, spustite program Outlook.
2. Potom stlačte klávesovú skratku „Alt + F11“.
3. V nasledujúcom okne editora VBA dvojitým kliknutím otvoríte modul, ktorý sa používa, alebo priamo vložte nový modul pomocou „Vložiť“ > „Modul“.
4. Ďalej skopírujte a prilepte nasledujúce kódy VBA do modulu.

Sub RemoveDuplicateItems()
    Dim objFolder As Folder
    Dim objDictionary As Object
    Dim i As Long
    Dim objItem As Object
    Dim strKey As String

    Set objDictionary = CreateObject("scripting.dictionary")
    'Select a source folder
    Set objFolder = Outlook.Application.Session.PickFolder

    If Not (objFolder Is Nothing) Then
       For i = objFolder.Items.Count To 1 Step -1
           Set objItem = objFolder.Items.Item(i)
 
           Select Case objFolder.DefaultItemType
                  'Check email subject, body and sent time
                  Case olMailItem
                       strKey = objItem.Subject & "," & objItem.Body & "," & objItem.SentOn
                  'Check appointment subject, start time, duration, location and body
                  Case olAppointmentItem
                       strKey = objItem.Subject & "," & objItem.Start & "," & objItem.Duration & "," & objItem.Location & "," & objItem.Body
                  'Check contact full name and email address
                  Case olContactItem
                       strKey = objItem.FullName & "," & objItem.Email1Address & "," & objItem.Email2Address & "," & objItem.Email3Address
                  'Check task subject, start date, due date and body
                  Case olTaskItem
                       strKey = objItem.Subject & "," & objItem.StartDate & "," & objItem.DueDate & "," & objItem.Body
           End Select
 
           strKey = Replace(strKey, ", ", Chr(32))
 
           'Remove the duplicate items
           If objDictionary.Exists(strKey) = True Then
              objItem.Delete
           Else
              objDictionary.Add strKey, True
           End If
       Next i
    End If
End Sub

5. Potom toto makro digitálne podpíšte a zmeňte úroveň zabezpečenia makra programu Outlook na nízku.
6. Neskôr môžete spustiť tento nový projekt VBA. Priamo kliknite na ikonu „Spustiť“ na paneli s nástrojmi.
7. Následne budete musieť vybrať priečinok, z ktorého chcete odstrániť duplicitné položky.
8. Nakoniec sa duplicitné položky vo vybranom priečinku naraz odstránia.

Ochrana zraniteľných údajov PST

Vzhľadom na skutočnosť, že súbor PST je náchylný na poškodenie, mali by ste vynaložiť veľa úsilia na ochranu súboru PST. Mali by ste napríklad zabrániť nesprávnemu zatvoreniu programu Outlook. Okrem toho musíte pripraviť robustný Oprava programu Outlook nástroj, ako napr DataNumen Outlook Repair ktoré budú schopné včas zachrániť váš PST.

Ú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 zotaviť sa SQL Server a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S