Ako je možné hromadne označiť všetky e-maily ako prečítané vo všetkých priečinkoch Outlooku pomocou VBA

Viacerí používatelia túžia po riešení, aby hromadne označilo všetky e-maily ako prečítané vo všetkých priečinkoch Outlooku. V tomto článku vám takúto metódu predstavíme.  

Ako všetci vieme, je ľahké označiť všetky správy v priečinku ako prečítané. Stačí zvoliť a kliknúť pravým tlačidlom myši na priečinok a potom v kontextovej ponuke zvoliť možnosť „Označiť všetky ako prečítané“. Ak však existuje niekoľko priečinkov, ktoré majú neprečítané e-maily, vyššie uvedenými prostriedkami musíte postupovať jednotlivo. Je to príliš problematické. Preto vás tu budeme zdieľať oveľa efektívnejším spôsobom, ktorý vám umožní realizovať to hromadne.

Dávkovo označte všetky e-maily ako prečítané vo všetkých priečinkoch Outlooku

1. K stars, spustite aplikáciu Outlook.
2. Potom stlačte kombináciu klávesov „Alt + F11“, aby ste sa dostali do editora Outlook VBA.
3. Ďalej v okne „Microsoft Visual Basic for Applications“ skopírujte nižšie uvedený kód do nepoužívaného modulu.

Sub MarkAllItemsAsRead () Dim objStores As Outlook.Stores Dim objStore As Outlook.Store Dim objOutlookFile As Outlook.Folder Dim objFolder As Outlook.Folder 'Process all Outlook files Set objStores = Outlook.Application.Session.Stores For each objStore In objStores Set objOutlookFile = objStore.GetRootFolder pre každý objFolder v objOutlookFile.Folders 'Spracovať poštové priečinky If objFolder.DefaultItemType = olMailItem Potom zavolajte ProcessFolders (objFolder) Koniec Ak ďalšie Ďalej Koniec Sub Sub Spracovanie priečinkov (ByVal objCurFolder ako Outlook.Folder) Dim ObjUnread. i Ako celé číslo Dim objItem Ako objekt Dim DimSubFolder ako Outlook.Folder Nastaviť objUnreadItems = objCurFolder.Items.Restrict ("[Unread] = True") 'Označiť všetky neprečítané e-maily ako prečítané Pre i = 1 To objUnreadItems.Count Nastaviť objItem = objUnreadItems. Položka (i) objItem.UnRead = False objItem.Save Ďalej 'Rekurzívne spracovať podpriečinky Ak objCurFolder.Folders.Count> 0 Potom Pre každý objSubFolder V objCurFolder.Folders Zavolať ProcessFolders (objSubF starší) Ďalej Koniec Ak Koniec Sub

4. Potom umiestnite kurzor do prvého podprogramu.
5. Následne stlačte tlačidlo „F5“ alebo kliknite na ikonu „Spustiť“ na paneli nástrojov.
6. Po dokončení makra sa môžete nakoniec vrátiť do zoznamu priečinkov pošty.
7. Tam uvidíte, že všetky neprečítané e-maily boli označené ako prečítané, ako je to znázornené na snímke obrazovky.

Únik z úbohej straty dát v Outlooku

Používatelia mohli akceptovať skutočnosť, že dokumenty Word a zošity programu Excel môžu byť ľahko poškodené. V skutočnosti, podobne ako tieto súbory, je pravdepodobne aj dátový súbor programu Outlook poškodený. Preto, ak sa zdráhate to zažiť, mali by ste podniknúť určité kroky. Mal by obsahovať preventívne opatrenia, ako napríklad pravidelné zálohovanie a blokovanie všetkého škodlivého softvéru alebo vírusov, a niektoré pomocné opatrenia, ako napríklad vedieť, ako spustiť nástroj na opravu doručenej pošty, Scanpst a uchovanie výkonného nástroja na externé opravy, ako je napr DataNumen Outlook Repair.

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