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
Pozor: 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é.
Pozor: Tento kód je k dispozici pouze pro výchozí datový účet.
Nejlepší nástroje pro produktivitu v kanceláři
Nejnovější zprávy: Spuštění Kutools pro Outlook Volná verze!
Vyzkoušejte zcela nové Kutools pro Outlook ZDARMA verze s více než 70 neuvěřitelnými funkcemi, kterou můžete používat NAVŽDY! Kliknutím stáhnete hned!
???? Automatizace e-mailu: Automatická odpověď (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: Připomenout e-maily / 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 Pro: Dá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ů / Připomeňte si, když přijdou důležité e-maily / 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 ...
