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

Autor: Xiaoyang Naposledy změněno: 2018-04-10

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.