2 modi per contrassegnare in batch tutte le e-mail di Outlook più vecchie di una data specifica come lette

Dopo aver importato più vecchie e-mail in Outlook e queste e-mail sono nello stato "non letto", è necessario contrassegnarle in batch come lette. Ora, in questo articolo, ti mostreremo 2 metodi rapidi.

A volte, potrebbe essere necessario contrassegnare in batch più e-mail come lette. Ad esempio, hai un vecchio file PST, che contiene un sacco di vecchie email. Quindi, importi le e-mail nel tuo file PST di Outlook. Tuttavia, dopo l'importazione, queste e-mail vengono visualizzate come "Non lette" per impostazione predefinita. A questo punto, ti consigliamo di contrassegnare in batch queste e-mail, più vecchie di una data specifica, come lette. Qui esamineremo questo requisito per condividere 2 approcci pratici ed efficienti.

Metodo 1: contrassegna in batch le e-mail trovate come lette manualmente

1. Per cominciare, apri una cartella di posta.
2. Quindi, fai clic nella casella di ricerca.
3. Successivamente, nella barra multifunzione "Cerca", fai clic sul pulsante "Tutti gli elementi di posta" nel gruppo "Ambito".
4. Successivamente, inserisci i criteri "inviato: <=2018/5/21" nella casella di ricerca. Cambia "2018/5/12" nella data desiderata.
5. Al termine della ricerca, selezionare tutti gli elementi di posta trovati tramite "Ctrl + A".
6. Infine, fai clic con il pulsante destro del mouse e scegli l'opzione "Segna annuncio letto".

Metodo 2: contrassegna in batch le e-mail più vecchie della data specifica come lette con VBA

1. Per cominciare, avvia l'editor VBA in Outlook secondo "Come eseguire il codice VBA in Outlook".
2. Quindi, copia il codice seguente in un modulo.

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. Successivamente, premi il tasto "F5" per eseguire questa macro in questo momento.
4. Successivamente, nella piccola finestra di dialogo popup, inserisci la data specifica e premi "OK".
5. Alla fine, tutte le e-mail più vecchie della data specifica verranno contrassegnate come lette.

Ripristina il file di Outlook compromesso

I file PST di Outlook possono essere danneggiati dopo che Outlook si arresta in modo imprevisto di tanto in tanto. Se disponi di un backup aggiornato, puoi semplicemente recuperare Outlook dati con il backup. Altrimenti, non hai altra scelta che cercare un esperto o un'utilità specializzata, come ad esempio DataNumen Outlook Repair per riparare il file di Outlook.

Introduzione dell'autore:

Shirley Zhang è un'esperta di recupero dati in DataNumen, Inc., che è il leader mondiale nelle tecnologie di recupero dati, tra cui correzione del mdf e prodotti software di riparazione di Outlook. Per maggiori informazioni visita www.datanumen.com