Outlook 에서 답장하지 않은 모든 이메일을 위한 검색 폴더를 만드는 방법은 무엇인가요？

Outlook 에서 답장하지 않은 이메일을 확인하려고 할 때， 하나씩 검색하는 데는 많은 시간이 소요됩니다。 이 글에서는 답장되지 않은 모든 메시지를 위한 검색 폴더를 만드는 방법에 대해 설명하겠습니다。

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

---

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

다음의 VBA 코드를 사용하면 답장하지 않은 모든 이메일을 모아둘 검색 폴더를 만들 수 있습니다。 아래 단계를 따라 주세요：

1.ALT + F11키를 누른 상태로 유지하여Microsoft Visual Basic for Applications창을 엽니다。

2.삽입(Insert)>모듈(Module)을 클릭한 후 다음 매크로를모듈(Module)창에 붙여넣습니다。

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키를 눌러 이 코드를 실행합니다。 그러면 아래 스크린샷과 같은 프롬프트 상자가 나타납니다：

4.확인(OK)버튼을 클릭하면 이제 Outlook 의 각 계정 아래답장하지 않은 이메일(Not Replied Emails)폴더가검색 폴더(Search Folders)항목에 생성되며， 여기에 답장하지 않은 모든 이메일이 표시됩니다。 스크린샷 참조：