2 veidi, kā visas Outlook e-pasta ziņas, kas ir vecākas par noteiktu datumu, atzīmēt kā izlasītas

Pēc vairāku vecu e-pasta ziņojumu importēšanas programmā Outlook un šie e-pasta ziņojumi ir “nelasīti” statusā, jums tie ir jānosaka paketē kā lasīti. Šajā rakstā mēs jums parādīsim 2 ātras metodes.

Dažreiz jums var būt nepieciešams vairākus e-pastus atzīmēt kā izlasītus. Piemēram, jums ir vecs PST fails, kurā ir daudz vecu e-pastu. Pēc tam jūs importējat e-pastus savā Outlook PST failā. Tomēr pēc importēšanas šie e-pasta ziņojumi pēc noklusējuma tiek rādīti kā “Nelasīti”. Pašlaik šīs vēstules, kas ir vecākas par noteiktu datumu, vēlaties partijām atzīmēt kā izlasītas. Šeit mēs aplūkosim šo prasību, lai dalītos 2 ērtās un efektīvās pieejās.

1. metode: Partijas marķējums atrada e-pastus kā lasītus manuāli

1. Lai sāktu, atveriet pasta mapi.
2. Pēc tam noklikšķiniet uz meklēšanas lodziņa.
3. Pēc tam lentē “Meklēt” noklikšķiniet uz pogas “Visi pasta sūtījumi” grupā “Darbības joma”.
4. Pēc tam meklēšanas lodziņā ievadiet kritēriju “nosūtīts: <= 2018/5/21”. Mainiet “2018/5/12” uz vēlamo datumu.
5. Kad meklēšana ir pabeigta, atlasiet visus atrastos pasta sūtījumus, izmantojot “Ctrl + A”.
6. Visbeidzot, ar peles labo pogu noklikšķiniet un izvēlieties opciju “Atzīmēt reklāmu lasītu”.

2. metode: sērijveida e-pasta ziņojumi, kas ir vecāki par noteiktu datumu, lasīti ar VBA

1. Vispirms palaidiet VBA redaktoru programmā Outlook saskaņā ar “Kā palaist VBA kodu programmā Outlook".
2. Pēc tam modulī iekopējiet šo kodu.

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. Pēc tam nospiediet taustiņu “F5”, lai tūlīt palaistu šo makro.
4. Vēlāk nelielajā uznirstošajā dialoglodziņā ievadiet konkrēto datumu un nospiediet “OK”.
5. Galu galā visi e-pasta ziņojumi, kas vecāki par konkrēto datumu, tiks atzīmēti kā izlasīti.

Atjaunot apdraudēto Outlook failu

Pēc tam, kad Outlook šad un tad negaidīti avarē, Outlook PST faili var tikt bojāti. Ja jums ir atjaunināta dublējumkopija, varat vienkārši atgūt Outlook datus ar jūsu dublējumu. Pretējā gadījumā jums nekas cits neatliek kā meklēt specializētu ekspertu vai utilītu, piemēram DataNumen Outlook Repair lai labotu Outlook failu.

Autora ievads:

Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp mdf labot un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar