Làm cách nào để tạo thư mục tìm kiếm cho tất cả các email chưa được trả lời trong Outlook?

Nếu bạn muốn kiểm tra các email chưa trả lời trong Outlook của mình, để tìm kiếm từng email một sẽ mất nhiều thời gian. Bài viết này, tôi sẽ nói về việc tạo một thư mục tìm kiếm cho tất cả các thư chưa trả lời.

Tạo thư mục tìm kiếm cho tất cả các email chưa trả lời trong Outlook bằng mã VBA

---

Tạo thư mục tìm kiếm cho tất cả các email chưa trả lời trong Outlook bằng mã VBA

Mã VBA sau có thể giúp bạn tạo một thư mục tìm kiếm, nơi sẽ đặt tất cả các email chưa trả lời, vui lòng làm như sau:

1. Giữ ALT + F11 phím để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.

2. Nhấp chuột Chèn > Mô-đunvà dán macro sau vào Mô-đun Cửa sổ.

Mã VBA: Tạo thư mục tìm kiếm cho các email chưa trả lời:

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. Sau đó nhấn F5 để chạy mã này và một hộp nhắc xuất hiện như hình minh họa sau:

4. Nhấp chuột OK , bây giờ, bạn sẽ nhận được một Email không được trả lời thư mục dưới Thư mục Tìm kiếm cho mỗi tài khoản trong Outlook của bạn và tất cả các email chưa trả lời được hiển thị ở đây, hãy xem ảnh chụp màn hình: