Note: The other languages of the website are Google-translated. Back to English
Accedi  \/ 
x
or
x
Registrati  \/ 
x

or

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.


Kutools for Outlook: porta 100 funzionalità avanzate in Outlook e semplifica notevolmente il lavoro!

  • Auto CC / BCC dalle regole durante l'invio di e-mail; Avanzamento automatico Email multiple personalizzate; Risposta automatica senza server di scambio e più funzioni automatiche ...
  • Avviso BCC - mostra il messaggio quando provi a rispondere a tutti se il tuo indirizzo e-mail è nell'elenco BCC; Ricorda quando mancano allegatie altre funzioni di promemoria ...
  • Rispondi (tutti) con tutti gli allegati nella conversazione di posta; Rispondi a molte email in secondi; Aggiunta automatica di saluto quando rispondi; Aggiungi la data all'oggetto ...
  • Strumenti per gli allegati: gestisci tutti gli allegati in tutti i messaggi, Scollegamento automatico, Comprimi tutto, Rinomina tutto, Salva tutto ... Rapporto rapido, Conta le email selezionate...
  • E-mail spazzatura potenti per abitudine; Rimuovi messaggi e contatti duplicati... Consentono di fare in modo più intelligente, veloce e migliore in Outlook.
girato kutools outlook scheda kutools 1180x121
girato kutools outlook kutools plus tab 1180x121
 
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    ani · 10 months ago
    How do I modify the code to target a specific folder?