Mẹo: Các ngôn ngữ khác được Dịch bởi Google. Bạn có thể ghé thăm English phiên bản của liên kết này.
Đăng nhập
x
or
x
x
Ghi danh
x

or

Làm thế nào để tự động mở rộng tất cả các thư mục khi bắt đầu Outlook?

Nói chung, nếu bạn mở rộng hoặc thu gọn một thư mục trên Navigation Pane và sau đó đóng Outlook, thư mục sẽ vẫn mở rộng hoặc thu gọn khi khởi động lại Outlook. Nhưng bây giờ, có một cách để mở rộng tất cả các thư mục tự động khi bắt đầu Outlook? Bài viết này sẽ giới thiệu một VBA để hoàn thành nhiệm vụ.

Tự động mở rộng tất cả các thư mục khi bắt đầu Outlook với VBA

Kutools cho Outlook: 100 + Các công cụ nâng cao mới cho Outlook.
Tab Office: Bật tính năng Chỉnh sửa và Duyệt qua Tab trong Văn phòng, Giống như Chrome, Firefox, IE 8 / 9 / 10.
Menu Cổ điển: Mang theo menu cũ và thanh công cụ Quay lại đến Văn phòng 2007, 2010, 2013, 2016 và 2019.

mũi tên màu xanh bên phảiTự động mở rộng tất cả các thư mục khi bắt đầu Outlook với VBA

Phương pháp này sẽ giới thiệu một VBA để tự động mở rộng tất cả các thư mục trên Navigation Pane khi bạn bắt đầu Outlook. Hãy áp dụng VBA này như sau:

1. nhấn Khác + F11 phím đồng thời để mở cửa sổ Microsoft Visual Basic cho ứng dụng.

2. Mở rộng Dự án 1Đối tượng Microsoft Outlook trong khung Project, nhấp đúp vào để mở ThisOutlookSession cửa sổ, và sau đó dán dưới đây mã VBA vào nó.

VBA: Tự động mở rộng tất cả các thư mục trong Outlook

Private Sub Application_Startup()
ExpandAllFolders
End Sub

Private Sub ExpandAllFolders()
On Error Resume Next
Dim Ns As Outlook.NameSpace
Dim Folders As Outlook.Folders
Dim CurrF As Outlook.MAPIFolder
Dim F As Outlook.MAPIFolder
Dim ExpandDefaultStoreOnly As Boolean

  ExpandDefaultStoreOnly = False

  Set Ns = Application.GetNamespace("Mapi")
Set CurrF = Application.ActiveExplorer.CurrentFolder

  If ExpandDefaultStoreOnly = True Then
Set F = Ns.GetDefaultFolder(olFolderInbox)
Set F = F.Parent
Set Folders = F.Folders
LoopFolders Folders, True

  Else
LoopFolders Ns.Folders, True
End If

  DoEvents
Set Application.ActiveExplorer.CurrentFolder = CurrF
End Sub

Private Sub LoopFolders(Folders As Outlook.Folders, _
ByVal bRecursive As Boolean _
)
Dim F As Outlook.MAPIFolder

  For Each F In Folders
Set Application.ActiveExplorer.CurrentFolder = F
DoEvents

    If bRecursive Then
If F.Folders.Count Then
LoopFolders F.Folders, bRecursive
End If
End If
Next
End Sub

3. Lưu mã và đóng cửa sổ Microsoft Visual Basic cho ứng dụng.

Từ bây giờ, khi khởi động lại Outlook, tất cả các thư mục sẽ tự động được mở rộng trong Outlook.chú thích: VBA này không thể mở các thư mục tìm kiếm đã bị thu gọn khi khởi động lại Outlook.


mũi tên màu xanh bên phảiBài viết liên quan



Kutools cho Outlook

Nhiều hơn các chức năng nâng cao 100 cho Outlook 2010, 2013, 2016, 2019 và 365

kutools chụp màn hình cho triển vọng nhỏ cho banner 201812

Các tính năng khác | Tải xuống miễn phí | Chỉ có $ 39.00 cho hàng trăm chức năng

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Selvi · 7 months ago
    Thank you so much.. It solved my problem. :)