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. Na začiatok otvorte priečinok s poštou.
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 objCurFolder As Outlook.Folder)
    Dim objItem As Object
    Dim objMail As Outlook.MailItem
    Dim objSubfolder As Outlook.Folder
 
    For Each objItem In objCurFolder.Items
        If TypeOf objItem Is MailItem Then
           Set 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