Nhiều người dùng mong muốn tất cả các thư mục có thể tự động được mở rộng khi họ khởi chạy Outlook. Trên thực tế, Outlook không hỗ trợ tính năng này một cách mặc định. Do đó, để thực hiện được điều này, bạn phải sử dụng mã VBA. Bài viết này sẽ cung cấp cho bạn hướng dẫn nhanh.
Có thể bạn đã tạo rất nhiều thư mục con bên dưới các thư mục mặc định trong Outlook. Với số lượng thư mục nhiều như vậy, để truy cập nhanh chóng bất cứ lúc nào, bạn có thể muốn giữ cho tất cả các thư mục luôn được mở rộng. Bước đầu tiên là phải làm cho Outlook tự động mở rộng các thư mục khi khởi động. Rõ ràng, Outlook không có chức năng mặc định như vậy. Do đó, bạn phải sử dụng macro. Sau đây, chúng tôi sẽ hướng dẫn bạn cách thực hiện điều đó bằng VBA. Về cách áp dụng VBA, bạn có thể tham khảo bài viết khác – “Cách chạy mã VBA trong Outlook của bạn".
Tự động mở rộng tất cả thư mục khi khởi động Outlook
- Để bắt đầu, hãy nhấn “Alt + F11” trong Outlook của bạn để truy cập trình chỉnh sửa VBA.
- Sau đó, trong cửa sổ mới, hãy đặt mã vào dự án “ThisOutlookSession”.
'Auto expand all folders on startup
Private Sub Application_Startup()
Call ExpandAllFolders
End Sub
Private Sub ExpandAllFolders()
Dim objCurrentFolder As Outlook.Folder
Dim objStore As Outlook.Store
Dim objFileFolders As Outlook.Folders
Dim objFolder As Outlook.Folder
Set objCurrentFolder = Application.ActiveExplorer.CurrentFolder
'Process all email accounts in your Outlook
For Each objStore In Outlook.Application.Session.Stores
Set objFileFolders = objStore.GetRootFolder.Folders
For Each objFolder In objFileFolders
Call LoopFolders(objFolder)
Next
DoEvents
Set Application.ActiveExplorer.CurrentFolder = objCurrentFolder
Next
End Sub
Sub LoopFolders(ByVal objCurFolder As Outlook.Folder)
Dim objSubfolder As Outlook.Folder
Set Application.ActiveExplorer.CurrentFolder = objCurFolder
DoEvents
'Process all subfolders recursively
If objCurFolder.Folders.Count > 0 Then
For Each objSubfolder In objCurFolder.Folders
Call LoopFolders(objSubfolder)
Next
End If
End Sub
- Sau đó, đóng trình soạn thảo VBA.
- Sau đó, thoát khỏi ứng dụng Outlook đúng cách.
- Tiếp theo, hãy mở Outlook. Lúc này, macro sẽ tự động chạy.
- Sau khi Outlook khởi động, bạn có thể thấy tất cả các thư mục đã được mở rộng, như hình minh họa bên dưới.
Giữ tất cả các macro độc hại ở vịnh
Bạn đã bao giờ nhận được email đính kèm tệp đáng ngờ hoặc được nhúng bằng liên kết không xác định chưa? Thông thường, khi đối mặt với những email như vậy, bạn phải nâng cao tinh thần cảnh giác. Bạn không bao giờ nên dễ dàng tin tưởng vào chúng vì chúng có thể mang vi-rút. Sau khi bạn tải xuống các tệp đính kèm hoặc mở các liên kết, không chỉ Outlook mà cả máy tính cũng có thể bị tấn công. Khi đó, bạn phải sửa chữa triển vọng tài liệu. Nó có thể khá rắc rối trừ khi bạn có bản sao lưu Outlook cập nhật hoặc sử dụng công cụ khôi phục mạnh mẽ, chẳng hạn như DataNumen Outlook Repair.
Giới thiệu tác giả:
Shirley Zhang là một chuyên gia phục hồi dữ liệu trong DataNumen, Inc., công ty hàng đầu thế giới về công nghệ khôi phục dữ liệu, bao gồm SQL Server tham nhũng và các sản phẩm phần mềm sửa chữa triển vọng. Để biết thêm thông tin, hãy truy cập www.datanumennăm