How to Batch Add Multiple Folders to “Favorites” Section in Your Outlook

Outlook doesn’t provide any functions to add multiple folders to “Favorites” section in bulk. If you need to do this, you can refer to this article. Here we’ll introduce a much more efficient method.

If you need to frequently access some folders in your Outlook, you can add these folders to “Favorites” section. It can help you escape from locating these folders among a great number of folders. To add a single folder to “Favorites” section, you can use either of the two ways introduced in the first part of this article. Nevertheless, if you want to add multiple folders to “Favorites” section, you need utilize the method shared in the second part.

Batch Add Multiple Folders to "Favorites" Section in Your Outlook

Add One Folder to “Favorites” Section

  1. Right click on a folder and select “Show in Favorites” option from the context menu.Show in Favorites from Context Menu
  2. Select a folder and then click the “Show in Favorites” button on “Folder” tab.Show in Favorites on Folder Tab

Batch Add Multiple Folders to “Favorites” Section

  1. To begin with, tap on “Alt + F11” in Outlook.
  2. Then, in the displaying VBA editor, put the following code into a module.
Sub BatchAddMultipleFoldersToFavorites()
    Dim objFolder As Outlook.Folder
    Dim objSubFolder As Outlook.Folder
    Dim objNavigationPane As Outlook.NavigationPane
    Dim objNavigationModule As Outlook.NavigationModule
    Dim objNavigationGroup As Outlook.NavigationGroup
 
    'Locate the current folder whose subfolders to be added to Favorites
    Set objFolder = Outlook.Application.ActiveExplorer.CurrentFolder
 
    If Not (objFolder Is Nothing) Then
 
       'Get the Favorites
       Set objNavigationPane = Application.ActiveExplorer.NavigationPane
       Set objNavigationModule = objNavigationPane.Modules.GetNavigationModule(olModuleMail)
       Set objNavigationGroup = objNavigationModule.NavigationGroups.GetDefaultNavigationGroup(olFavoriteFoldersGroup)
 
       'Add folders to Favorites
       If objFolder.Folders.Count > 0 Then
          For Each objSubFolder In objFolder.Folders
              objNavigationGroup.NavigationFolders.Add objSubFolder
          Next
       Else
          objNavigationGroup.NavigationFolders.Add objFolder
       End If
    End If
End Sub

VBA Code - Batch Add Multiple Folders to "Favorites" Section

  1. Subsequently, add this macro to Quick Access Toolbar. About elaborate steps, please refer to “How to Run VBA Code in Your Outlook“.
  2. After that, you need do something as per whether the folders are subfolders under a same folder.
  • If they are subfolders under the same folder, bypass this step.
  • If not, create a new Temp folder and move all the source folders to this Temp folder.Move Folders
  1. Eventually, you can try this macro. Select a folder and then click the macro in Quick Access Toolbar.Run Macro on a Selected Folder
  2. At once, all the subfolders under the selected folder are added to Favorites.Multiple Folders Added to Favorites Section

Cope with Outlook Corruption

Similar to other common files, like Word documents or Excel workbooks, Outlook file can be corrupt readily as well. Hence, here we will share some tips to dispose of Outlook corruption. First of all, you can check your latest backup to see if it has the data what you need. If backup data is useless, you can try Scanpst, built-in fix tool to try fixing your damaged PST file. Assuming that it fails, your last resort is a powerful and credible external tool, such as DataNumen Outlook Repair.

Author Introduction:

Shirley Zhang is a data recovery expert in DataNumen, Inc., which is the world leader in data recovery technologies, including SQL Server repair and outlook repair software products. For more information visit www.datanumen.com

Comments are closed.