如何在 Outlook 中自动将早于指定天数的未读邮件批量标记为已读？

如果您的收件箱中有多封未读邮件，您通常可以通过“全部标记为已读”功能手动将所有未读邮件设为已读。但您是否曾想过，能否在 Outlook 中让早于指定天数的未读邮件自动标记为已读，无需每次都手动操作？

使用 VBA 代码自动将早于指定天数的未读邮件标记为已读

---

使用 VBA 代码自动将早于指定天数的未读邮件标记为已读

要自动将所有早于指定天数的未读邮件标记为已读，可以使用如下 VBA 代码帮您实现：

1. 按住 ALT + F11 组合键，即可打开 Microsoft Visual Basic for Applications 窗口。

2. 在 Microsoft Visual Basic for Applications 窗口中，双击 Project 1(VbaProject.OTM) 窗格中的 ThisOutlookSession，打开模块后，将下方代码复制并粘贴到空白模块中。

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

注意：在上述代码中，您可以根据需要在此脚本内修改天数：If DateDiff("d", xItems(i).ReceivedTime, Now) >= 15Then。

3. 保存并关闭此代码窗口后，今后每次启动 Outlook，所有早于预定天数的未读邮件都会自动标记为已读。

注意：本代码仅适用于默认数据账户。