Bỏ qua nội dung chính

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.
doc đi tới mở thư mục kết quả tìm kiếm 1

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.
doc đi tới mở thư mục kết quả tìm kiếm 2

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.
doc đi tới mở thư mục kết quả tìm kiếm 3

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.
doc đi tới mở thư mục kết quả tìm kiếm 4

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.
doc đi tới mở thư mục kết quả tìm kiếm 5

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 để chuyển trực tiếp đến thư mục hoặc nhấp vào Không để hủy bỏ.
doc đi tới mở thư mục kết quả tìm kiếm 6


Đ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.

Kutools for Outlook , Bao gồm 100 + các tính năng và công cụ mạnh mẽ dành cho Microsoft Outlook 2016, 2013, 2010 và Office 365.

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.
doc đi tới mở thư mục kết quả tìm kiếm 7


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ệpLư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.

 

 

Comments (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
HI Guys,
Will this scroll the folder pane as well?  Most of the time the folder is selected but the folder location doesnt get scrolled to  in the folder pane?
Cheers,

This comment was minimized by the moderator on the site
Deleted emails Folder
This comment was minimized by the moderator on the site
Hi, Red McKenna, each account has each deleted forlder, it is called Deleted items.
This comment was minimized by the moderator on the site
Where is the deleted email folder?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations