Outlook에서 모든 응답하지 않은 이메일에 대한 검색 폴더를 만드는 방법은 무엇입니까?

Author: Xiaoyang Last Modified: 2025-08-06

Outlook에서 응답하지 않은 이메일을 확인하려면 하나씩 검색하는 데 많은 시간이 걸릴 수 있습니다. 이 문서에서는 모든 응답하지 않은 메시지에 대한 검색 폴더를 만드는 방법에 대해 설명하겠습니다.

VBA 코드를 사용하여 Outlook에서 모든 응답하지 않은 이메일에 대한 검색 폴더 만들기

VBA 코드를 사용하여 Outlook에서 모든 응답하지 않은 이메일에 대한 검색 폴더 만들기

다음 VBA 코드는 모든 응답하지 않은 이메일을 포함할 검색 폴더를 만드는 데 도움을 줄 수 있습니다. 아래 단계를 따라 하세요:

1. ALT + F11 키를 눌러 Microsoft Visual Basic for Applications 창을 엽니다.

2. 삽입 > 모듈을 클릭하고, 모듈 창에 다음 매크로를 붙여넣습니다.

VBA 코드: 응답하지 않은 이메일에 대한 검색 폴더 만들기:

Sub CreateSearchFolder_AllNotRepliedEmails()
    Dim xSearch As Outlook.Search
    Dim xScope As String, xFilter As String
    Dim xRepliedProperty As String
    Dim xFolder As Folder, xSubFolder As Folder
    On Error Resume Next
    xScope = ""
    For Each xFolder In Outlook.Application.Session.Folders
        Set xSubFolder = xFolder.Folders("Inbox")
        xScope = "'" + xSubFolder.FolderPath + "'"
        xRepliedProperty = "http://schemas.microsoft.com/mapi/proptag/0x10810003"
        xFilter = Chr(34) & xRepliedProperty & Chr(34) & " <> 102" & "AND" & Chr(34) & xRepliedProperty & Chr(34) & " <> 103"
        Set xSearch = Outlook.Application.AdvancedSearch(Scope:=xScope, Filter:=xFilter, SearchSubFolders:=True, Tag:="SearchFolder")
        xSearch.Save("Not Replied Emails").ShowItemCount = olShowTotalItemCount
        Set xSearch = Nothing
        Set xSubFolder = Nothing
    Next
    MsgBox "Search folder is created successfully!", vbInformation + vbOKOnly, "Kutools for Outlook"
End Sub

3. 그런 다음, F5 키를 눌러 이 코드를 실행하면 다음과 같은 스크린샷과 같이 알림 상자가 나타납니다: