Vai al contenuto principale

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

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à.

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.


I migliori strumenti per la produttività in ufficio

Kutools for Outlook - Oltre 100 potenti funzionalità per potenziare il tuo Outlook

???? Automazione di posta elettronica: Fuori sede (disponibile per POP e IMAP)  /  Pianifica l'invio di e-mail  /  CC/BCC automatico in base alle regole durante l'invio di e-mail  /  Inoltro automatico (regole avanzate)   /  Aggiunta automatica di saluto   /  Suddividi automaticamente le email con più destinatari in singoli messaggi ...

📨 gestione e-mail: Richiama facilmente le email  /  Blocca le email truffe per soggetto e altri  /  Elimina email duplicate  /  Ricerca avanzata  /  Consolidare cartelle ...

📁 Allegati ProSalvataggio in batch  /  Stacca batch  /  Comprimi in lotti  /  Salvataggio automatico   /  Scollegamento automatico  /  Comprimi automaticamente ...

🌟 Magia dell'interfaccia: 😊Più emoji carini e fantastici   /  Aumenta la tua produttività in Outlook con le visualizzazioni a schede  /  Riduci a icona Outlook invece di chiuderlo ...

👍 Meraviglie con un clic: Rispondi a tutti con gli allegati in arrivo  /   E-mail anti-phishing  /  🕘Mostra il fuso orario del mittente ...

👩🏼‍🤝‍👩🏻 Contatti e calendario: Aggiungi in batch contatti dalle email selezionate  /  Dividere un gruppo di contatti in singoli gruppi  /  Rimuovi promemoria compleanno ...

Al di sopra Caratteristiche 100 Attendi la tua esplorazione! Clicca qui per scoprire di più.

Leggi Ora       Scarica gratis      Acquista
 

 

Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
How do I modify the code to target a specific folder?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations