Outlookで特定の日数より古い未読メールを自動的に既読にするにはどうすればよいですか？

Author: Xiaoyang Last Modified: 2025-08-06

受信トレイフォルダーに複数の未読メールがある場合、通常は「すべて既読にする」機能を使用して、すべての未読メールを手動で既読にできます。しかし、毎回手動で設定せずに、特定の日数より古い未読メールをOutlookで自動的に既読にしたことはありますか？

VBAコードを使用して特定の日数より古い未読メールを自動的に既読にする

VBAコードを使用して特定の日数より古い未読メールを自動的に既読にする

特定の日数より古いすべての未読メールを自動的に既読にするには、次のVBAコードが役立ちます：

1. ALT + F11キーを押したままにすると、Microsoft Visual Basic for Applicationsウィンドウが開きます。

2. Microsoft Visual Basic for Applicationsウィンドウで、Project1(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) >= 15 Then を必要に応じて調整してください。