Note: The other languages of the website are Google-translated. Back to English

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


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.
shot kutools triển vọng tab kutools 1180x121
shot kutools triển vọng kutools plus tab 1180x121
 
Nhận xét (4)
Chưa có xếp hạng. Hãy là người đầu tiên xếp hạng!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Thư mục email đã xóa ở đâu?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Thư mục email đã xóa
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, Red McKenna, mỗi tài khoản có từng tài khoản cũ hơn bị xóa, nó được gọi là Các mục đã xóa.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Chào các cậu,
Điều này cũng sẽ cuộn ngăn thư mục? Hầu hết thời gian thư mục được chọn nhưng vị trí thư mục không được cuộn đến trong ngăn thư mục?
Chúc mừng,

Không có bình luận nào được đăng ở đây
Để lại ý kiến ​​của bạn
Đăng với tư cách khách
×
Đánh giá bài viết này:
0   Nhân vật
Các vị trí được đề xuất

Kết nối với chúng tôi

Bản quyền © 2009 - www.extendoffice.com. | Đã đăng ký Bản quyền. cung cấp bởi ExtendOffice. | BẢN ĐỒ CHI NHÁNH
Microsoft và logo Office là các nhãn hiệu hoặc nhãn hiệu đã đăng ký của Microsoft Corporation tại Hoa Kỳ và / hoặc các quốc gia khác.
Được bảo vệ bởi Sectigo SSL