Skip to main content

Kutools para Office — Una Suite. Cinco Herramientas. Haz Más.

¿Cómo marcar correos electrónicos no leídos con más de un número específico de días como leídos automáticamente en Outlook?

Author: Xiaoyang Last Modified: 2025-08-26

Si hay varios correos electrónicos no leídos en la carpeta de Bandeja de entrada, normalmente puedes aplicar la función Marcar todo como leído para marcar manualmente todos los correos electrónicos no leídos como leídos. Pero, ¿has intentado alguna vez marcar los correos electrónicos no leídos que tienen más de un número específico de días como leídos automáticamente en Outlook sin tener que configurarlo manualmente cada vez?

Marcar correos electrónicos no leídos con más de un número específico de días como leídos automáticamente con código VBA


Marcar correos electrónicos no leídos con más de un número específico de días como leídos automáticamente con código VBA

Para marcar automáticamente todos los correos electrónicos no leídos con más de un número específico de días como leídos, el siguiente código VBA puede ayudarte:

1. Mantén presionadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. En la ventana de Microsoft Visual Basic para Aplicaciones, haz doble clic en ThisOutlookSession desde el panel Project1(VbaProject.OTM) para abrir el modo, y luego copia y pega el siguiente código en el módulo en blanco.

Código VBA: Auto-marcar correos electrónicos no leídos con más de un número específico de días 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

Nota: En el código anterior, puedes cambiar el número de días dentro de este script: If DateDiff("d", xItems(i).ReceivedTime, Now) >= 15 Then a lo que necesites.

the screenshot of marking unread emails older than specific days as read automatically in Outlook

3. Luego guarda y cierra esta ventana de código, desde ese momento, cada vez que inicies Outlook, todos los correos electrónicos no leídos que tengan más de los días predefinidos se marcarán como leídos automáticamente de inmediato.

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


Las mejores herramientas de productividad para Office

Noticia de última hora: ¡Kutools para Outlook lanza su versión gratuita!

¡Descubre el nuevo Kutools para Outlook con más de100 increíbles funciones! Haz clic para descargar ahora.

🤖 Kutools AI : Utiliza tecnología avanzada de IA para gestionar tus correos electrónicos sin esfuerzo: responder, resumir, optimizar, ampliar, traducir y redactar correos.

📧 Automatización de correo electrónico: Respuesta automática (disponible para POP e IMAP) / Programar envío de correo electrónico / CC/BCC automático por regla al enviar correo / Reenvío automático (Regla avanzada) / Agregar saludo automáticamente / Dividir automáticamente correos con múltiples destinatarios en emails individuales...

📨 Gestión de correo electrónico: Recuperar correo electrónico / Bloquear correos fraudulentos por asunto y otros filtros / Eliminar duplicados / Búsqueda Avanzada / Organizar carpetas...

📁 Adjuntos Pro: Guardar en lote / Desanexar en lote / Comprimir en lote / Guardar automáticamente / Desconectar automáticamente / Auto Comprimir...

🌟 Magia en la interfaz: 😊Más emojis bonitos y modernos / Avisos cuando llegan emails importantes / Minimizar Outlook en vez de cerrar...

👍 Funciones en un clic: Responder a Todos con Adjuntos / Correos antiphishing / 🕘Mostrar la zona horaria del remitente...

👩🏼‍🤝‍👩🏻 Contactos y Calendario: Agregar contacto en lote desde emails seleccionados / Dividir un grupo de contactos en grupos individuales / Eliminar recordatorio de cumpleaños...

Utiliza Kutools en tu idioma preferido — disponible en Inglés, Español, Alemán, Francés, Chino y más de40 idiomas adicionales.

Activa Kutools para Outlook al instante con un solo clic. No esperes más, descarga ahora y maximiza tu productividad.

kutools for outlook features1 kutools for outlook features2

🚀 Descarga con un solo clic — Consigue todos los complementos para Office

Muy recomendado: Kutools para Office (5 en1)

Descarga los cinco instaladores a la vez con solo un clic — Kutools para Excel, Outlook, Word, PowerPoint y Office Tab Pro. Haz clic para descargar ahora.

  • Comodidad en un solo clic: Descarga los cinco paquetes de instalación en una sola acción.
  • 🚀 Listo para cualquier tarea en Office: Instala los complementos que necesites cuando los necesites.
  • 🧰 Incluye: Kutools para Excel / Kutools para Outlook / Kutools para Word / Office Tab Pro / Kutools para PowerPoint