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 il nuovo Kutools per Outlook con oltre100 funzionalità incredibili! Clicca per scaricare ora!
📧 Automazione email: Risposta automatica (disponibile per POP e IMAP) / Programmazione invio email / CC/BCC automatico tramite regola durante l’invio dell’email / Inoltro automatico (Regola avanzata) / Aggiungi saluto automaticamente / Suddivisione automatica delle email con più destinatari in email individuali ...
📨 Gestione email: Richiama Email / Blocca email di truffa tramite Oggetto e altro / Elimina Email duplicate / Ricerca Avanzata / Organizza cartelle ...
📁 Allegati Pro: Salvataggio in batch / Distacco in batch / Compressione in batch / Salvataggio automatico / Distacca automaticamente / Auto Comprimi ...
🌟 Magia dell’interfaccia: 😊Più emoji belle e simpatiche / Ti avvisa quando arrivano email importanti / Minimizza Outlook invece di chiuderlo ...
👍 Meraviglie con un clic: Rispondi a Tutti con Allegati / Email Anti-phishing / 🕘Mostra il fuso orario del mittente ...
👩🏼🤝👩🏻 Contatti e Calendario: Aggiunta massiva dei contatti dalle email selezionate / Dividi un Gruppo di Contatti in gruppi individuali / Rimuovi promemoria di compleanno ...
Usa Kutools nella lingua che preferisci: supporta Inglese, Spagnolo, Tedesco, Francese, Cinese e oltre40 altre lingue!
