Outlook 에서 특정 일수보다 오래된 읽지 않은 이메일을 자동으로 읽음 상태로 표시하는 방법은 무엇인가요？

받은 편지함 폴더에 읽지 않은 이메일이 여러 개 있는 경우 일반적으로 '모두 읽음으로 표시' 기능을 사용해 수동으로 모든 읽지 않은 이메일을 읽음 상태로 표시할 수 있습니다. 하지만 Outlook 에서 매번 수동으로 설정하지 않고도 특정 일수보다 오래된 읽지 않은 이메일만 자동으로 읽음 상태로 표시해 본 적이 있나요？

VBA 코드를 사용하여 특정 일수보다 오래된 읽지 않은 이메일을 자동으로 읽음 상태로 표시하기

---

VBA 코드를 사용하여 특정 일수보다 오래된 읽지 않은 이메일을 자동으로 읽음 상태로 표시하기

특정 일수보다 오래된 모든 읽지 않은 이메일을 자동으로 읽음 상태로 표시하려면 다음 VBA 코드가 도움이 될 수 있습니다。

1.ALT + F11키를 누른 채로Microsoft Visual Basic for Applications창을 엽니다。

2.Microsoft Visual Basic for Applications창에서ThisOutlookSession을(를)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

참고： 위의 코드에서 다음 스크립트 내의 일수를 원하는 값으로 변경할 수 있습니다。If DateDiff(「d」, xItems(i).ReceivedTime, Now) >= 15Then

3. 그런 다음 이 코드 창을 저장하고 닫기 하세요. 이후 Outlook 을 실행할 때마다 미리 정의한 일수보다 오래된 모든 읽지 않은 이메일이 한 번에 자동으로 읽음으로 표시 됩니다。

참고： 이 코드는 기본 데이터 계정에만 적용됩니다。