2 způsoby, jak dávkově označit všechny e-maily aplikace Outlook starší než konkrétní datum jako přečtené

Po importu více starých e-mailů do Outlooku a tyto e-maily jsou ve stavu „nepřečtené“, musíte je hromadně označit jako přečtené. V tomto článku vám nyní ukážeme 2 rychlé metody.

Někdy budete možná muset hromadně označit více e-mailů jako přečtené. Například máte starý soubor PST, který obsahuje spoustu starých e-mailů. Poté importujete e-maily do vlastního souboru PST aplikace Outlook. Po importu se však tyto e-maily ve výchozím nastavení zobrazují jako „nepřečtené“. V tuto chvíli budete chtít tyto e-maily, starší než konkrétní datum, hromadně označit jako přečtené. Zde se podíváme na tento požadavek, abychom sdíleli 2 užitečné a efektivní přístupy.

Metoda 1: Dávkové označení nalezených e-mailů jako ručně přečtených

1. Pro začátek otevřete složku pošty.
2. Poté klikněte do vyhledávacího pole.
3. Dále na pásu karet „Hledat“ klikněte ve skupině „Rozsah“ na tlačítko „Všechny poštovní položky“.
4. Poté zadejte do vyhledávacího pole kritéria „sent: <= 2018/5/21“. Změňte „2018/5/12“ na požadované datum.
5. Po dokončení vyhledávání vyberte všechny nalezené položky pošty pomocí „Ctrl + A“.
6. Nakonec klikněte pravým tlačítkem a vyberte možnost „Označit reklamu jako přečtenou“.

Metoda 2: Dávkové označování e-mailů starších než konkrétní datum při čtení pomocí VBA

1. Nejprve spusťte editor VBA v Outlooku podle „Jak spustit kód VBA ve vašem Outlooku".
2. Potom zkopírujte následující 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. Poté stiskněte klávesu „F5“ pro spuštění tohoto makra právě teď.
4. Později v malém vyskakovacím dialogovém okně zadejte konkrétní datum a stiskněte „OK“.
5. Nakonec budou všechny e-maily starší než konkrétní datum označeny jako přečtené.

Obnovte kompromitovaný soubor aplikace Outlook

Soubory Outlook PST mohou být poškozeny po neočekávaném selhání aplikace Outlook. Pokud máte aktualizovanou zálohu, můžete jen obnovit Outlook data s vaší zálohou. Jinak vám nezbývá než hledat specializovaného odborníka nebo odborníka, jako je DataNumen Outlook Repair opravit soubor aplikace Outlook.

Úvod autora:

Shirley Zhang je expertem na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně mdf opravit a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com