Skip to main content

Como marcar e-mails não lidos mais antigos que um número específico de dias como lidos automaticamente no Outlook?

Author: Xiaoyang Last Modified: 2025-06-04

Se houver vários e-mails não lidos na sua pasta Caixa de Entrada, normalmente, você pode aplicar o recurso Marcar Todos como Lidos para marcar manualmente todos os e-mails não lidos como lidos. No entanto, você já tentou marcar e-mails não lidos mais antigos que um número específico de dias como lidos automaticamente no Outlook, sem precisar configurá-lo manualmente toda vez?

Marcar e-mails não lidos mais antigos que um número específico de dias como lidos automaticamente com código VBA


Marcar e-mails não lidos mais antigos que um número específico de dias como lidos automaticamente com código VBA

Para marcar automaticamente todos os e-mails não lidos mais antigos que um número específico de dias como lidos, o seguinte código VBA pode ajudá-lo:

1. Pressione as teclas ALT + F11 para abrir a janela Microsoft Visual Basic for Applications.

2. Na janela Microsoft Visual Basic for Applications, clique duas vezes em ThisOutlookSession no painel Project1(VbaProject.OTM) para abrir o modo, e depois copie e cole o código abaixo no módulo em branco.

Código VBA: Marcar automaticamente e-mails não lidos mais antigos que um número específico de dias como lidos:

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

Observação: No código acima, você pode alterar o número de dias dentro deste script: If DateDiff("d", xItems(i).ReceivedTime, Now) >= 15 Then para o valor desejado.

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

3. Em seguida, salve e feche esta janela de código. A partir de agora, sempre que você iniciar o Outlook, todos os e-mails não lidos mais antigos que os dias pré-definidos serão marcados como lidos automaticamente.

Observação: Este código só está disponível para a conta de dados padrão.


Melhores Ferramentas de Produtividade para Office

Notícia de Última Hora: Kutools para Outlook Lança Versão Gratuita!

Experimente agora a nova versão GRATUITA do Kutools para Outlook, com mais de70 recursos incríveis para você usar PARA SEMPRE! Clique para baixar agora!

🤖 Kutools AI : Utiliza tecnologia avançada de IA para gerenciar emails com facilidade, incluindo responder, resumir, otimizar, expandir, traduzir e redigir emails.

📧 Automação de Email: Resposta automática (Disponível para POP e IMAP) / Agendar envio de emails / CC/BCC automático por Regra ao enviar email / Encaminhamento automático (Regra avançada) / Adicionar saudação automaticamente / Dividir automaticamente emails com múltiplos destinatários em mensagens individuais...

📨 Gerenciamento de Email: Recallar Email / Bloquear emails suspeitos por assunto e outros critérios / Excluir Emails Duplicados / Pesquisa Avançada / Organizar Pastas...

📁 Anexos Pro: Salvar em lote / Desanexar em lote / Comprimir em lote / Salvar automaticamente / Desanexar automaticamente / Auto Comprimir...

🌟 Interface Mágica: 😊Mais emojis bonitos e estilosos / Aviso quando emails importantes chegarem / Minimizar Outlook ao invés de fechar...

👍 Recursos com Um Clique: Responder a Todos com Anexos / Emails Anti-Phishing / 🕘Exibir o fuso horário do remetente...

👩🏼‍🤝‍👩🏻 Contatos & Calendário: Adicionar contatos em lote a partir de emails selecionados / Dividir um grupo de contatos em grupos individuais / Remover lembrete de aniversário...

Desbloqueie instantaneamente o Kutools para Outlook com um único clique. Não perca tempo, baixe agora e aumente sua produtividade!

kutools for outlook features1 kutools for outlook features2