Set = objCurFolderįor Each objSubfolder In objCurFolder.Folders If objCurFolder.DefaultItemType = olMailItem Then Sub ProcessFolder(ByVal objCurFolder As Outlook.Folder)
'Change 'PSTName' to the name of your own Outlook PST file
Now, here we will unveil such a means to you. Therefore, you must long for a much quick method that can expand or collapse all the mail folders in one go. At this point, if you expand or collapse them manually via clicking one by one, it will be considerably tedious. Equally, when you feel that keeping all folders expanded makes your mail navigation pane looks too complex, you may wish to collapse all the folders. In this case, you can utilize the methods introduced in this post.įor some reasons, such as to check the emails in different folders and subfolders more conveniently, you may want to expand all the mail folders.
At times, you may want to expand or collapse all mail folders in the mail navigation pane in one go.
