Làm cách nào để truy cập và mở nhanh thư mục kết quả tìm kiếm trong Outlook?

Trong Outlook, bạn có thể tìm kiếm email dựa trên văn bản cụ thể bằng chức năng Tìm kiếm. Tuy nhiên, nếu bạn đang tìm kiếm qua tất cả các mục trên Outlook, bạn không thể nhanh chóng tìm ra thư mục của kết quả tìm kiếm. Trong trường hợp này, ở đây tôi có một số thủ thuật có thể giúp bạn nhanh chóng truy cập và mở thư mục kết quả tìm kiếm.

Đi tới và mở thư mục kết quả tìm kiếm bằng VBA

Đi tới và mở thư mục kết quả tìm kiếm bằng Nhấp chuột phải

Đi tới và mở thư mục kết quả tìm kiếm bằng VBA

Trong Outlook, không có chức năng tích hợp nào có thể xử lý công việc này, ngoại trừ mã VBA.

Trước khi sử dụng mã VBA, bạn cần hiển thị tên thư mục trong kết quả tìm kiếm.

1. nhấp chuột Xem > Thêm Cột.

2. bên trong Hiển thị các cột hộp thoại và trong Chọn các cột có sẵn từ danh sách thả xuống, chọn Tất cả các trường Thư, sau đó chọn Trong thư mục trong Các cột có sẵn danh sách.

3. nhấp chuột Thêm thêm Trong thư mục đến Hiển thị các cột này theo thứ tự này danh sách, sau đó nhấp vào Đi lên nút để di chuyển Trong thư mục tới đỉnh.

4. nhấp chuột OK để đóng hộp thoại. Bây giờ trong khi bạn đang tìm kiếm email, tên thư mục sẽ được hiển thị trong kết quả tìm kiếm.

5. Bây giờ nhấn Alt + F11 phím để kích hoạt Microsoft Visual Basic cho các ứng dụng cửa sổ, nhấp Chèn > Mô-đun để tạo một Mô-đun mới.

6. Sao chép và dán đoạn mã dưới đây vào Mô-đun.

VBA: Đi tới thư mục theo tên

Sub FindFolderByName()
'UpdatebyExtendoffice20181105
    Dim xFldName As String
    Dim xFoundFolder As Folder
    Dim xYesNo As Integer
    On Error Resume Next
    xFldName = InputBox("Folder Name:", "Kutools for Outlook")
    If Len(Trim(xFldName)) = 0 Then Exit Sub
    Set xFoundFolder = ProcessFolders(Application.Session.Folders, xFldName)
    If xFoundFolder Is Nothing Then
        MsgBox "Not Found", vbInformation, "Kutools for Outlook"
        Exit Sub
    End If
    xYesNo = MsgBox("Activate Folder: " & vbCrLf & xFoundFolder.FolderPath, vbQuestion Or vbYesNo, "Kutools for Outlook")
    If xYesNo = vbNo Then Exit Sub
    Set Application.ActiveExplorer.CurrentFolder = xFoundFolder
End Sub
Function ProcessFolders(Flds As Outlook.Folders, Name As String)
    Dim xSubFolder As Outlook.MAPIFolder
    On Error Resume Next
    Set ProcessFolders = Nothing
    For Each xSubFolder In Flds
        If UCase(xSubFolder.Name) = UCase(Name) Then
            Set ProcessFolders = xSubFolder
            Exit For
        Else
            Set ProcessFolders = ProcessFolders(xSubFolder.Folders, Name)
            If Not ProcessFolders Is Nothing Then Exit For
        End If
    Next
End Function

7. nhấn F5 để kích hoạt mã, bây giờ hãy nhập tên thư mục bạn muốn chuyển đến vào hộp thoại.

8. nhấp chuột OK, một hộp thoại bật ra để nhắc bạn vị trí của thư mục, hãy nhấp vào Có để chuyển trực tiếp đến thư mục hoặc nhấp vào Không để hủy bỏ.

Đi tới và mở thư mục kết quả tìm kiếm bằng Nhấp chuột phải

Nếu bạn có Kutools cho Outlook, sẽ có một Mở thư mục tiện ích nhúng vào menu chuột phải có thể nhanh chóng chuyển đến thư mục của email đã chọn.

Cài đặt miễn phí Kutools cho Outlook, và sau đó thực hiện như các bước dưới đây:

Sau khi tìm kiếm, nhấp chuột phải vào kết quả bạn muốn mở thư mục của nó, chọn Mở thư mục từ trình đơn ngữ cảnh.

---

Kutools cho Outlook - Cung cấp 100 Tính năng Nâng cao cho Outlook và Làm cho Công việc Dễ dàng hơn Nhiều!

• Auto CC / BCC bởi các quy tắc khi gửi email; Tự động chuyển tiếp Nhiều Email theo tùy chỉnh; Tự động trả lời không có máy chủ trao đổi và các tính năng tự động khác ...
• Cảnh báo BCC - hiển thị tin nhắn khi bạn cố gắng trả lời tất cả nếu địa chỉ thư của bạn có trong danh sách BCC; Nhắc nhở khi thiếu tệp đính kèmvà các tính năng nhắc nhở khác ...
• Trả lời (Tất cả) Với Tất cả Tệp đính kèm trong cuộc trò chuyện qua thư; Trả lời nhiều email trong vài giây; Tự động thêm lời chào khi trả lời; Thêm Ngày vào chủ đề ...
• Công cụ Tệp đính kèm: Quản lý Tất cả Tệp đính kèm trong Tất cả Thư, Tự động tách, Nén tất cả, Đổi tên tất cả, Lưu tất cả ... Báo cáo nhanh, Đếm thư đã chọnhữu ích. Cảm ơn !
• Email rác mạnh mẽ Theo phong tục; Xóa thư và liên hệ trùng lặphữu ích. Cảm ơn ! Cho phép bạn làm việc thông minh hơn, nhanh hơn và tốt hơn trong Outlook.

Đọc thêm ... Tải ngay...