Come contrassegnare automaticamente come lette le email non lette più vecchie di un certo numero di giorni in Outlook?
Se ci sono molte email non lette nella cartella Posta in arrivo, normalmente puoi utilizzare la funzione Contrassegna tutto come letto per contrassegnare manualmente tutte le email non lette come lette. Ma hai mai provato a contrassegnare automaticamente come lette le email non lette più vecchie di un certo numero 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 il 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 utile:
1. Tieni premuti i tasti ALT + F11 per aprire la finestra Microsoft Visual Basic for Applications.
2. Nella finestra Microsoft Visual Basic for Applications, fai doppio clic su ThisOutlookSession nel riquadro Project1(VbaProject.OTM) per aprire la modalità, quindi copia e incolla il codice sottostante 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 sopra, puoi modificare il numero di giorni all'interno di questo script: If DateDiff("d", xItems(i).ReceivedTime, Now) >= 15 Then alle tue esigenze.
3. Salva e chiudi questa finestra del codice, da quel momento in poi, ogni volta che avvii Outlook, tutte le email non lette più vecchie dei giorni predefiniti verranno contrassegnate come lette automaticamente.
Nota: Questo codice è disponibile solo per l'account dati predefinito.
I migliori strumenti per la produttività in Office
Ultime novità: Kutools per Outlook lancia la versione gratuita!
Scopri la nuovissima versione GRATUITA di Kutools per Outlook con oltre70 funzionalità straordinarie, da utilizzare PER SEMPRE! Clicca per scaricarla subito!
📧 Automazione Email: Risposta automatica (disponibile per POP e IMAP) / Programma invio email / CC/BCC automatico tramite regola durante l'invio / Inoltro automatico (Regola avanzata) / Aggiungi saluto automaticamente / Suddividi automaticamente le email con più destinatari in messaggi individuali...
📨 Gestione Email: Richiama Email / Blocca email di phishing per oggetto e altri criteri / Elimina email duplicate / Ricerca Avanzata / Organizza cartelle...
📁 Allegati Pro: Salva in blocco / Distacca in blocco / Comprimi in blocco / Salvataggio automatico / Distacca automaticamente / Auto Comprimi...
🌟 Magia dell'interfaccia: 😊Più emoji belle e originali / Notifiche per email importanti / Riduci Outlook a icona invece di chiuderlo...
👍 Funzioni rapide: Rispondi a Tutti con Allegati / Email anti-phishing / 🕘Mostra il fuso orario del mittente...
👩🏼🤝👩🏻 Contatti & Calendario: Aggiungi in blocco contatti dalle email selezionate / Dividi un gruppo di contatti in gruppi individuali / Rimuovi promemoria di compleanno...
