Come fare in modo che Outlook contrassegni automaticamente come lette le email non lette più vecchie di un certo numero di giorni?

Se nella cartella Posta in arrivo sono presenti diverse email non lette, in genere è possibile utilizzare la funzione Contrassegna tutte come lette per marcarle manualmente come lette. Tuttavia, hai mai provato a contrassegnare automaticamente come lette solo le email non lette più vecchie di un numero specifico di giorni in Outlook, senza doverlo impostare manualmente ogni volta?

Contrassegna automaticamente come lette le email non lette più vecchie di un certo numero di giorni con codice VBA

---

Contrassegna automaticamente come lette le email non lette più vecchie di un certo numero di giorni con codice VBA

Per contrassegnare automaticamente come lette tutte le email non lette più vecchie di un certo numero di giorni, il seguente codice VBA può esserti d’aiuto:

1. Tieni premuti i tasti ALT + F11 per aprire la finestra di Microsoft Visual Basic for Applications.

2. Nella finestra di Microsoft Visual Basic for Applications, fai doppio clic su ThisOutlookSession nel riquadro Project1 (VbaProject.OTM) per aprire il modulo, quindi copia e incolla il codice seguente nel modulo vuoto.

Codice VBA: Contrassegna automaticamente come lette le email non lette più vecchie di un certo numero di giorni:

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: Nel codice riportato sopra, puoi modificare il numero di giorni all’interno dello script:If DateDiff(«d», xItems(i).ReceivedTime, Now) >= 15Then in base alle tue esigenze.

3. Quindi salva e chiudi questa finestra del codice: da quel momento, ogni volta che avvii Outlook, tutte le email non lette più vecchie del numero di giorni predefinito verranno contrassegnate come lette automaticamente in un’unica operazione.

Nota: Questo codice è disponibile solo per l’account dati predefinito.