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

Outlook에서 회신되지 않은 이메일을 확인하려면 하나씩 검색하는 데 많은 시간이 걸립니다. 이 기사에서는 회신하지 않은 모든 메시지에 대한 검색 폴더를 만드는 방법에 대해 설명합니다.

VBA 코드를 사용하여 Outlook에서 회신하지 않은 모든 전자 메일에 대한 검색 폴더 만들기

---

VBA 코드를 사용하여 Outlook에서 회신하지 않은 모든 전자 메일에 대한 검색 폴더 만들기

다음 VBA 코드는 회신되지 않은 모든 이메일을 저장할 검색 폴더를 만드는 데 도움이 될 수 있습니다. 다음과 같이하십시오.

1. 누르고 ALT + F11 키를 눌러 응용 프로그램 용 Microsoft Visual Basic 창.

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 키를 눌러이 코드를 실행하면 다음 스크린 샷과 같이 프롬프트 상자가 나타납니다.

4. 딸깍 하는 소리 OK 버튼, 이제 당신은 회신되지 않은 이메일 폴더 밑에 검색 폴더 Outlook의 각 계정에 대해 회신하지 않은 모든 이메일이 여기에 표시됩니다. 스크린 샷을 참조하세요.