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:
Công cụ năng suất văn phòng tốt nhất
Kutools cho Outlook - Hơn 100 tính năng mạnh mẽ để tăng cường Outlook của bạn
📧 Tự động hoá email: Vắng Mặt (Có sẵn cho POP và IMAP) / Lên lịch gửi email / Tự động CC/BCC theo quy định khi gửi Email / Tự động chuyển tiếp (Quy tắc nâng cao) / Tự động thêm lời chào / Tự động chia email nhiều người nhận thành các tin nhắn riêng lẻ hữu ích. Cảm ơn !
📨 Quản lý email: Dễ dàng thu hồi email / Chặn email lừa đảo theo chủ đề và những người khác / Xóa các email trùng lặp / Tìm Kiếm Nâng Cao / Hợp nhất các thư mục hữu ích. Cảm ơn !
📁 Tệp đính kèm chuyên nghiệp: Lưu hàng loạt / Tách hàng loạt / Nén hàng loạt / Tự động lưu / Tự động tách / Tự động nén hữu ích. Cảm ơn !
🌟 Giao diện ma thuật: 😊Thêm nhiều biểu tượng cảm xúc đẹp và thú vị hơn / Tăng năng suất Outlook của bạn với chế độ xem theo thẻ / Thu nhỏ Outlook thay vì đóng hữu ích. Cảm ơn !
👍 Kỳ quan chỉ bằng một cú nhấp chuột: Trả lời tất cả bằng tệp đính kèm đến / Email chống lừa đảo / 🕘Hiển thị múi giờ của người gửi hữu ích. Cảm ơn !
👩🏼🤝👩🏻 Danh bạ & Lịch: Thêm hàng loạt liên hệ từ các email đã chọn / Chia nhóm liên hệ thành các nhóm riêng lẻ / Xóa lời nhắc sinh nhật hữu ích. Cảm ơn !
Trên 100 tính năng Chờ đợi sự khám phá của bạn! Bấm vào đây để khám phá thêm.