2 moduri de a marca toate e-mailurile Outlook mai vechi decât o anumită dată ca fiind citite

După ce ați importat mai multe e-mailuri vechi în Outlook și aceste e-mailuri sunt în starea „necitite”, trebuie să doriți să le marcați în serie ca citite. Acum, în acest articol, vă vom arăta 2 metode rapide.

Uneori, este posibil să fie necesar să marcați în serie mai multe e-mailuri ca citite. De exemplu, aveți un fișier PST vechi, care conține o mulțime de e-mailuri vechi. Apoi, importați e-mailurile în propriul fișier PST Outlook. Cu toate acestea, după importare, aceste e-mailuri sunt afișate implicit ca „Necitite”. În acest moment, veți dori să marcați în serie aceste e-mailuri, mai vechi decât o anumită dată, ca citite. Aici ne vom uita la această cerință de a împărtăși 2 abordări utile și eficiente.

Metoda 1: Marcarea lotului E-mailurile găsite ca fiind citite manual

1. Pentru început, deschideți un folder de e-mail.
2. Apoi, faceți clic în caseta de căutare.
3. Apoi, în panglica „Căutare”, faceți clic pe butonul „Toate articolele de e-mail” din grupul „Scope”.
4. După aceea, introduceți criteriile „trimis: <=2018/5/21” în caseta de căutare. Schimbați „2018/5/12” la data dorită.
5. Când căutarea se încheie, selectați toate articolele de e-mail găsite prin „Ctrl + A”.
6. În cele din urmă, faceți clic dreapta și alegeți opțiunea „Marcați anunțul ca citit”.

Metoda 2: E-mailuri de marcare a lotului mai vechi decât o anumită dată, citite cu VBA

1. Pentru început, lansați editorul VBA în Outlook conform „Cum să rulați codul VBA în Outlook".
2. Apoi, copiați următorul cod într-un modul.

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. Apoi, apăsați tasta „F5” pentru a rula această macrocomandă chiar acum.
4. Mai târziu, în fereastra de dialog pop-up mică, introduceți data specifică și apăsați „OK”.
5. În cele din urmă, toate e-mailurile mai vechi decât data specifică vor fi marcate ca citite.

Restaurați fișierul Outlook compromis

Fișierele PST Outlook pot fi deteriorate după ce Outlook se blochează în mod neașteptat din când în când. Dacă aveți o copie de rezervă actualizată, puteți pur și simplu recuperați Outlook datele cu backup-ul dvs. În caz contrar, nu ai de ales decât să cauți un expert specializat sau un utilitar, cum ar fi DataNumen Outlook Repair pentru a repara fișierul Outlook.

Introducerea autorului:

Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv remediere mdf și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com