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

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

特定の日より古い未読メールをVBAコードで自動的に既読としてマークする

特定の日より古い未読メールをVBAコードで自動的に既読としてマークする

特定の日より古い未読のすべての電子メールを既読として自動的にマークするには、次のVBAコードを使用すると便利です。

1。を押し続けます Alt + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。

2。の中に アプリケーション向け Microsoft Visual Basic ウィンドウ、ダブルクリック このOutlookSession 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

Note: 上記のコードでは、このスクリプト内で日数を変更できます。 DateDiff("d", xItems(i).ReceivedTime, Now) >= 15 の場合 その後 あなた自身の必要なものに。