Přejít k hlavnímu obsahu

Jak označit nepřečtené e-maily starší než konkrétní dny jako automaticky přečtené v aplikaci Outlook?

Pokud je ve složce Doručená pošta několik nepřečtených e-mailů, můžete obvykle použít funkci Označit vše jako přečtené a všechny nepřečtené e-maily označit jako přečtené e-maily ručně. Zkusili jste ale někdy označit nepřečtené e-maily, které jsou starší než konkrétní dny, jako automaticky přečtené v Outlooku, aniž byste je pokaždé nastavovali ručně?

Označte nepřečtené e-maily starší než konkrétní dny jako automaticky přečtené pomocí kódu VBA


Označte nepřečtené e-maily starší než konkrétní dny jako automaticky přečtené pomocí kódu VBA

Chcete-li automaticky označit všechny nepřečtené e-maily starší než konkrétní dny jako přečtené, můžete si udělat laskavost pomocí následujícího kódu VBA:

1. Podržte ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.

2. V Microsoft Visual Basic pro aplikace okno, dvakrát klikněte ThisOutlookSession z Project1 (VbaProject.OTM) v podokně otevřete režim a poté zkopírujte a vložte níže uvedený kód do prázdného modulu.

Kód VBA: Automaticky označit nepřečtené e-maily starší než konkrétní dny jako přečtené:

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

Poznámka: Ve výše uvedeném kódu můžete změnit počet dní v tomto skriptu: Pokud DateDiff ("d", xItems (i) .ReceivedTime, nyní)> = 15 Pak podle vašich potřeb.

3. Poté toto okno s kódem uložte a zavřete, protože při každém spuštění aplikace Outlook budou všechny nepřečtené e-maily starší než předdefinované dny automaticky označeny jako přečtené.

Poznámka: Tento kód je k dispozici pouze pro výchozí datový účet.


Nejlepší nástroje pro produktivitu v kanceláři

Kutools pro aplikaci Outlook - Více než 100 výkonných funkcí, které doplní váš Outlook

???? Automatizace e-mailu: Mimo kancelář (k dispozici pro POP a IMAP)  /  Naplánujte odesílání e-mailů  /  Automatická kopie/skrytá kopie podle pravidel při odesílání e-mailu  /  Automatické přeposílání (pokročilá pravidla)   /  Automatické přidání pozdravu   /  Automaticky rozdělte e-maily pro více příjemců na jednotlivé zprávy ...

📨 Email management: Snadné vyvolání e-mailů  /  Blokujte podvodné e-maily podle předmětů a dalších  /  Odstranit duplicitní e-maily  /  pokročilé vyhledávání  /  Konsolidovat složky ...

📁 Přílohy ProDávkové uložení  /  Dávkové odpojení  /  Dávková komprese  /  Automaticky uložit   /  Automatické odpojení  /  Automatické komprimování ...

???? Rozhraní Magic: 😊 Více pěkných a skvělých emotikonů   /  Zvyšte produktivitu své aplikace Outlook pomocí zobrazení s kartami  /  Minimalizujte aplikaci Outlook namísto zavírání ...

???? Zázraky na jedno kliknutí: Odpovědět všem s příchozími přílohami  /   E-maily proti phishingu  /  🕘Zobrazit časové pásmo odesílatele ...

👩🏼‍🤝‍👩🏻 Kontakty a kalendář: Dávkové přidání kontaktů z vybraných e-mailů  /  Rozdělit skupinu kontaktů na jednotlivé skupiny  /  Odeberte připomenutí narozenin ...

Přes 100 Vlastnosti Očekávejte svůj průzkum! Kliknutím sem zobrazíte další informace.

Více       Stažení zdarma      Nákup
 

 

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