¿Cómo marcar correos electrónicos no leídos anteriores a días específicos como leídos automáticamente en Outlook?

Si hay varios correos electrónicos no leídos en la carpeta Bandeja de entrada, normalmente puede aplicar la función Marcar todo como leído para marcar todos los correos electrónicos no leídos como correos electrónicos leídos manualmente. Pero, ¿alguna vez ha intentado marcar los correos electrónicos no leídos que son más antiguos que días específicos como leídos automáticamente en Outlook sin configurarlos manualmente cada vez?

Marque los correos electrónicos no leídos anteriores a días específicos como leídos automáticamente con el código VBA

Marque los correos electrónicos no leídos anteriores a días específicos como leídos automáticamente con el código VBA

Para marcar automáticamente todos los correos electrónicos no leídos anteriores a días específicos como leídos, el siguiente código VBA puede hacerte un favor:

1. Mantenga pulsado el ALT + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.

2. En la Microsoft Visual Basic para aplicaciones ventana, haga doble clic Esta sesión de Outlook del desplegable Proyecto1 (VbaProject.OTM) panel para abrir el modo, y luego copie y pegue el siguiente código en el módulo en blanco.

Código de VBA: marca automáticamente los correos electrónicos no leídos más antiguos que días específicos como leídos:

Private Sub Application_Startup()
        Call MarkOldUnreadEmailsAsRead
    End Sub
    Private Sub MarkOldUnreadEmailsAsRead()
    Dim xInboxFld As Outlook.Folder
    Dim xAccount As Account
    On Error GoTo L1
    For Each xAccount In Outlook.Application.Session.Accounts
        Set xInboxFld = xAccount.DeliveryStore.GetDefaultFolder(olFolderInbox)
        Call Processfolders(xInboxFld)
    Next xAccount
L1:     Exit Sub
    End Sub
    Private Sub Processfolders(ByVal InboxFld As Outlook.Folder)
    Dim xItems As Outlook.Items
    Dim i As Long
    Dim xSubFld As Outlook.Folder
    On Error Resume Next
    Set xItems = InboxFld.Items
    For i = 1 To xItems.Count
        If DateDiff("d", xItems(i).ReceivedTime, Now) >= 15 Then
           If xItems(i).UnRead = True Then
              xItems(i).UnRead = False
              xItems(i).Save
           End If
        End If
    Next
    If InboxFld.Folders.Count > 0 Then
       For Each xSubFld In InboxFld.Folders
           Call Processfolders(xSubFld)
       Next
    End If
End Sub

Note: En el código anterior, puede cambiar la cantidad de días dentro de este script: If DateDiff ("d", xItems (i) .ReceivedTime, Now)> = 15 Entonces a tu propia necesidad.

3. Luego guarde y cierre esta ventana de código, desde entonces, cada vez que inicie Outlook, todos los correos electrónicos no leídos que sean más antiguos que los días predefinidos se marcarán como leídos automáticamente a la vez.

Note: Este código solo está disponible para la cuenta de datos predeterminada.