Como marcar e-mails não lidos mais antigos que um número específico de dias como lidos automaticamente no Outlook?
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
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.
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 Urgente: Kutools para Outlook lança versão gratuita!
Experimente o novo Kutools para Outlook com mais de100 recursos incríveis! Clique para baixar agora!
📧 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 vários 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 divertidos / Aviso de chegada de emails importantes / Minimizar Outlook em vez de fechar...
👍 Praticidade com um clique: Responder a Todos com Anexos / Anti-Phishing Emails / 🕘Exibir 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...
Use o Kutools no idioma que preferir – compatível com Inglês, Espanhol, Alemão, Francês, Chinês e mais de40 outros!
