Conas ríomhphoist neamhléite a mharcáil níos sine ná laethanta faoi leith mar a léitear go huathoibríoch iad in Outlook?

Má bhíonn iliomad ríomhphoist neamhléite i d’fhillteán Isteach, de ghnáth, is féidir leat an ghné Mark All as Read a chur i bhfeidhm chun gach ríomhphost neamhléite a mharcáil mar ríomhphoist léite de láimh. Ach an ndearna tú iarracht riamh ríomhphoist neamhléite atá níos sine ná laethanta faoi leith a mharcáil mar a léitear go huathoibríoch in Outlook gan iad a shocrú de láimh gach uair?

Marcáil ríomhphoist neamhléite níos sine ná laethanta faoi leith mar a léitear go huathoibríoch iad le cód VBA

Marcáil ríomhphoist neamhléite níos sine ná laethanta faoi leith mar a léitear go huathoibríoch iad le cód VBA

Chun gach ríomhphost neamhléite atá níos sine ná laethanta faoi leith a léamh mar is féidir a léamh, is féidir leis an gcód VBA seo a leanas fabhar a dhéanamh duit:

1. Coinnigh síos an ALT + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. Sa an Microsoft Visual Basic d’Fheidhmchláir fuinneog, cliceáil dúbailte ThisOutlookSession ó na Tionscadal1 (VbaProject.OTM) pána chun an mód a oscailt, agus ansin an cód thíos a chóipeáil agus a ghreamú isteach sa mhodúl bán.

Cód VBA: Ríomhphoist ríomhphoist neamhléite níos sine ná laethanta faoi leith mar a léitear:

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

nótaí: Sa chód thuas, is féidir leat líon na laethanta laistigh den script seo a athrú: Más DateDiff ("d", xItems (i) .ReceivedTime, Now)> = 15 Ansin chun do chuid féin a theastaíonn.

3. Ansin sábháil agus dún an fhuinneog cód seo, ó shin i leith, gach uair a sheolann tú Outlook, marcálfar gach ríomhphost neamhléite atá níos sine ná laethanta réamhshainithe mar a léitear go huathoibríoch ag an am céanna.

nótaí: Níl an cód seo ar fáil ach don chuntas sonraí réamhshocraithe.