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

Záchrana dát z Outlooku, Riešenia pre Outlook March 29, 2017

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.

Rýchlo odstráňte duplicitné položky programu Outlook v priečinku pomocou jazyka VBA

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 Dim objItem As Object Dim strKey As String Set objDictionary = CreateObject("scripting.dictionary") 'Vyberte zdrojový priečinok Set objFolder = Outlook.Application.Session.P 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 'Skontrolovať predmet e-mailu, telo a čas odoslania Case olMailItem strKey = objItem.Subject & "," & objItem.Body & "," & objItem.SentOn 'Check meeting subject, start čas, trvanie, miesto a telo Case olAppointmentItem strKey = objItem.Subject & "," & objItem.Start & "," & objItem.Duration & "," & objItem.Location & "," & objItem.Body 'Skontrolujte celé meno a e-mailovú adresu kontaktu Case olContactItem strKey = objItem.FullName & "," & objItem.Email1Address & " ," & objItem.Email2Address & "," & objItem.Email3Address 'Skontrolovať predmet úlohy, start dátum, dátum splatnosti a telo Case olTaskItem strKey = objItem.Subject & "," & objItem.StartDate & "," & objItem.DueDate & "," & objItem.Body End Vyberte strKey = Replace(strKey, ", ", Chr(32)) 'Odstráňte duplicitné položky, ak objDictionary.Exists(strKey) = True Potom objItem .Delete Else objDictionary.Add strKey, True End If Next i End If End Sub

Kódy VBA – rýchlo odstráňte duplicitné položky programu Outlook v priečinku

  1. Potom toto makro digitálne podpíšte a zmeňte úroveň zabezpečenia makra programu Outlook na nízku.
  2. Neskôr môžete spustiť tento nový projekt VBA. Priamo kliknite na ikonu „Spustiť“ na paneli s nástrojmi.spustiť toto makro
  3. Následne budete musieť vybrať priečinok, z ktorého chcete odstrániť duplicitné položky.Vyberte priečinok
  4. 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

Komentáre sú uzavreté.