Come contrassegnare le e-mail non lette più vecchie di giorni specifici come lette automaticamente in Outlook?

Autore: Xiaoyang Ultima modifica: 2024-08-19

Se sono presenti più e-mail non lette nella cartella Posta in arrivo, normalmente, è possibile applicare la funzione Segna tutto come letto per contrassegnare manualmente tutte le e-mail non lette come e-mail lette. Ma hai mai provato a contrassegnare le e-mail non lette che sono più vecchie di giorni specifici come lette automaticamente in Outlook senza impostarle manualmente ogni volta?

Contrassegna le e-mail non lette più vecchie di giorni specifici come lette automaticamente con il codice VBA

Contrassegna le e-mail non lette più vecchie di giorni specifici come lette automaticamente con il codice VBA

Per contrassegnare automaticamente tutte le e-mail non lette più vecchie di giorni specifici come lette, il seguente codice VBA può farti un favore:

1. Tieni premuto il ALT + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.

2. Nel Microsoft Visual Basic, Applications Edition finestra, fare doppio clic Questa sessione di Outlook dal Progetto1 (VbaProject.OTM) riquadro per aprire la modalità, quindi copia e incolla il codice seguente nel modulo vuoto.

Codice VBA: contrassegna automaticamente le e-mail non lette più vecchie di giorni specifici come lette:

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

Note:: Nel codice sopra, puoi modificare il numero di giorni all'interno di questo script: Se DateDiff ("d", xItems (i) .ReceivedTime, Now)> = 15 Poi secondo le tue necessità.

lo screenshot di contrassegnare le e-mail non lette più vecchie di giorni specifici come lette automaticamente in Outlook

3. Quindi salva e chiudi questa finestra di codice, da allora, ogni volta che avvii Outlook, tutte le e-mail non lette che sono più vecchie di giorni predefiniti verranno contrassegnate come lette automaticamente in una volta.

Note:: Questo codice è disponibile solo per l'account dati predefinito.