특정 일수보다 오래된 읽지 않은 이메일을 자동으로 읽은 상태로 표시하는 방법(Outlook에서)

Author: Xiaoyang Last Modified: 2025-08-06

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

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 부분을 원하는 값으로 수정하세요.