如何在Outlook中將超過特定日期的未讀電子郵件標記為已自動閱讀？

如果您的“收件箱”文件夾中有多個未讀電子郵件，通常，您可以應用“將所有未讀電子郵件標記為已讀”功能來手動將所有未讀電子郵件標記為已讀電子郵件。但是，您是否曾經嘗試將早於特定日期的未讀電子郵件標記為在Outlook中自動閱讀，而無需每次都手動進行設置？

使用VBA代碼將早於特定日期的未讀電子郵件標記為已自動閱讀

使用VBA代碼將早於特定日期的未讀電子郵件標記為已自動閱讀

要將所有早於特定日期的未讀電子郵件自動標記為已讀，以下VBA代碼可以幫您一個忙：

1。按住 ALT + F11 鍵打開 Microsoft Visual Basic for Applications 窗口。

2。在 Microsoft Visual Basic for Applications 窗口，雙擊 本次展望會議 來自 Project1（VbaProject.OTM） 窗格以打開模式，然後將以下代碼複製並粘貼到空白模塊中。

VBA代碼：將特定日期之前的未讀電子郵件自動標記為已讀：

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

備註：在上面的代碼中，您可以更改此腳本中的天數： 如果 DateDiff("d", xItems(i).ReceivedTime, Now) >= 15 然後到你自己需要的。