2 formas de marcar por lotes todos los correos electrónicos de Outlook anteriores a una fecha específica como leídos

Después de importar varios correos electrónicos antiguos a Outlook y estos correos electrónicos están en estado "no leído", debe querer marcarlos por lotes como leídos. Ahora, en este artículo, le mostraremos 2 métodos rápidos.

A veces, es posible que deba marcar por lotes varios correos electrónicos como leídos. Por ejemplo, tiene un archivo PST antiguo, que contiene muchos correos electrónicos antiguos. Luego, importa los correos electrónicos a su propio archivo PST de Outlook. Sin embargo, después de la importación, estos correos electrónicos se muestran como "No leídos" de forma predeterminada. En este momento, querrá marcar por lotes estos correos, anteriores a una fecha específica, como leídos. Aquí veremos este requisito para compartir 2 enfoques prácticos y eficientes.

Método 1: Marcar por lotes los correos electrónicos encontrados como leídos manualmente

1. Para empezar, abre una carpeta de correo.
2. Luego, haga clic en el cuadro de búsqueda.
3. A continuación, en la cinta "Buscar", haga clic en el botón "Todos los elementos de correo" en el grupo "Alcance".
4. Después de eso, ingrese los criterios "enviado: <= 2018/5/21" en el cuadro de búsqueda. Cambie "2018/5/12" a la fecha deseada.
5. Cuando finalice la búsqueda, seleccione todos los elementos de correo encontrados mediante "Ctrl + A".
6. Finalmente, haga clic derecho y elija la opción "Marcar anuncio leído".

Método 2: Marcar por lotes los correos electrónicos anteriores a la fecha específica como leídos con VBA

1. Para empezar, inicie el editor VBA en Outlook de acuerdo con "Cómo ejecutar código VBA en su Outlook".
2. Luego, copie el siguiente código en un módulo.

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. Luego, presione la tecla "F5" para ejecutar esta macro ahora mismo.
4. Más tarde, en el pequeño cuadro de diálogo emergente, ingrese la fecha específica y presione "Aceptar".
5. Eventualmente, todos los correos electrónicos anteriores a la fecha específica se marcarán como leídos.

Restaurar archivo de Outlook comprometido

Los archivos PST de Outlook pueden dañarse después de que Outlook se bloquee inesperadamente de vez en cuando. Si tiene una copia de seguridad actualizada, puede recuperar Outlook datos con su copia de seguridad. De lo contrario, no tiene más remedio que buscar un experto o una utilidad especializada, como DataNumen Outlook Repair para reparar el archivo de Outlook.

Introducción del autor:

Shirley Zhang es experta en recuperación de datos en DataNumen, Inc., que es el líder mundial en tecnologías de recuperación de datos, incluyendo arreglar mdf y productos de software de reparación de Outlook. Para más información visite www.datanumen.com