2 spôsoby dávkového označenia všetkých e-mailov služby Outlook starších ako konkrétny dátum ako prečítaných

Po importe viacerých starých e-mailov do Outlooku a týchto e-mailových správ v stave „neprečítané“ ich musíte hromadne označiť ako prečítané. Teraz vám v tomto článku ukážeme dve rýchle metódy.

Možno budete niekedy musieť hromadne označiť viac e-mailov ako prečítané. Napríklad máte starý súbor PST, ktorý obsahuje veľa starých e-mailov. Potom importujete e-maily do svojho vlastného súboru PST programu Outlook. Po importe sa však tieto e-maily predvolene zobrazujú ako „Neprečítané“. V súčasnosti budete chcieť tieto e-maily staršie ako konkrétny dátum hromadne označiť ako prečítané. Tu sa pozrieme na túto požiadavku zdieľania dvoch šikovných a efektívnych prístupov.

Metóda 1: Dávkové označenie nájdených e-mailov ako manuálneho čítania

1. Pre akotart, otvorte priečinok pošty.
2. Potom kliknite do vyhľadávacieho poľa.
3. Ďalej na páse s nástrojmi „Hľadať“ kliknite na tlačidlo „Všetky poštové položky“ v skupine „Rozsah“.
4. Potom zadajte do vyhľadávacieho poľa kritériá „odoslané: <= 2018/5/21“. Zmeňte „2018/5/12“ na požadovaný dátum.
5. Po dokončení vyhľadávania vyberte všetky nájdené poštové položky pomocou „Ctrl + A“.
6. Nakoniec kliknite pravým tlačidlom myši a vyberte možnosť „Označiť reklamu ako prečítanú“.

Metóda 2: Dávkové označovanie e-mailov starších ako konkrétny dátum pri čítaní pomocou VBA

1. Najskôr spustite editor VBA v Outlooku podľa „Ako spustiť kód VBA v programe Outlook".
2. Potom skopírujte nasledujúci kód do modulu.

Dim dDate As Date Sub MarkEmailsOlderThanSpecificDateRead () Dim objStore As Outlook.Store Dim objOutlookFile As Outlook.Folder Dim objFolder As Outlook.Folder dDate = InputBox ("Enter the specific date:",, "2018/5/11") For each objStore In Outlook.Application.Session.Stores Set objOutlookFile = objStore.GetRootFolder For each objFolder In objOutlookFile.Folders If objFolder.DefaultItemType = olMailItem Then Call ProcessFolders (objFolder) End If Next Next End Sub Sub ProcessFolders (ByVal obj.ur) objItem ako objekt Dim objMail ako Outlook.MailItem dim objSubfolder ako Outlook.Folder pre každý objItem v objCurFolder Items Ak TypeOf objItem je MailItem potom nastavte objMail = objItem if objMail.SentOn <= dDate Then If objMail.UnRead = True Then objMail.UnRead = False objMail.Save End If End If End If Next If objCurFolder.Folders.Count> 0 Then For each objSubfolder In objCurFolder.Folders Call ProcessFolders (objSubfolder) Next End If End Sub

3. Potom stlačte kláves „F5“, aby ste spustili toto makro práve teraz.
4. Neskôr v malom vyskakovacom dialógovom okne zadajte konkrétny dátum a stlačte tlačidlo „OK“.
5. Nakoniec budú všetky e-mailové správy staršie ako konkrétny dátum označené ako prečítané.

Obnovte napadnutý súbor programu Outlook

Súbory PST programu Outlook sa môžu poškodiť po neočakávanom zlyhaní programu Outlook tu a tam. Ak máte aktualizovanú zálohu, môžete len obnoviť Outlook údaje so zálohou. V opačnom prípade vám nezostáva nič iné, ako vyhľadať špecializovaného odborníka alebo pomocníka, ako napr DataNumen Outlook Repair opraviť súbor programu Outlook.

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