Como marcar automaticamente como lidos os e-mails não lidos com mais de um determinado número de dias no Outlook?

Se tiver vários e-mails não lidos na sua pasta Caixa de Entrada, pode normalmente usar a funcionalidade “Marcar Tudo como Lido” para os marcar manualmente como lidos. Mas já alguma vez tentou marcar automaticamente como lidos os e-mails não lidos com mais de um determinado número de dias no Outlook, sem precisar de configurar essa ação manualmente cada vez?

Marcar automaticamente como lidos os e-mails não lidos mais antigos do que um determinado número de dias com código VBA

---

Marcar automaticamente como lidos os e-mails não lidos mais antigos do que um determinado número de dias com código VBA

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

1. Prima e mantenha premidas as teclas ALT + F11 para abrir a janela do Microsoft Visual Basic for Applications.

2. Na janela do Microsoft Visual Basic for Applications, faça duplo clique em ThisOutlookSession no painel Project1 (VbaProject.OTM) para abrir o módulo e, em seguida, copie e cole o código abaixo no módulo em branco.

Código VBA: Marcar automaticamente como lidos os e-mails não lidos mais antigos do que um determinado número de dias:

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: No código acima, pode ajustar o número de dias nesta instrução:If DateDiff(«d», xItems(i).ReceivedTime, Now) >= 15Then conforme necessário.

3. Em seguida, guarde e feche esta janela de código; a partir desse momento, sempre que iniciar o Outlook, todos os e-mails não lidos com mais de um número predefinido de dias serão marcados como lidos automaticamente de uma só vez.

Nota: Este código está disponível apenas para a conta de dados predefinida.