如何在 Outlook 中建立搜尋資料夾，以顯示所有尚未回覆的電子郵件？

想快速掌握 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 鍵執行此程式碼，畫面將彈出如下圖所示的提示方塊：

4. 點選確定按鈕後，您將在 Outlook 每個帳戶的未回覆郵件資料夾下看到一個搜尋資料夾，所有未回覆的電子郵件都會集中顯示於此，請參見下圖：