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