2 Handy Ways to Batch Change the Views of Multiple Outlook Folders

At times, you may want to batch change the views of multiple folders in Outlook. So, in this article, we will teach you how to achieve it by 2 simple means.

You may have your own favorite folder view in Outlook, such as “Compact” view for mail folders, “Calendar” view for calendars, “List” view for contact folders and so on. Now, if you want to apply a specific view to many Outlook folders, you can utilize either of the following 2 methods as per your needs.

Method 1: Batch Change Views of Multiple Selected Folders

  1. To start with, select a folder.
  2. Then, switch to “View” tab and click “Change View” button.
  3. Subsequently, change the current folder’s view to your liking. For instance, in a Contacts folder, change its view from “Business Card” to “List”.
  4. Later, choose “Apply Current View to Other Contacts Folder” from the drop down list of “Change View”.Apply Current View to Other Contacts Folder
  5. After that, in the pop-up dialog box, select the folders whose views you want to change.Select Folders
  6. Lastly, click “OK”.
  7. Now, all the selected folders’ views have been changed to “List” View.

Method 2: Batch Change Views of All Folders in Same Type

  1. At the outset, press “Alt + F11” to trigger Outlook VBA editor.
  2. Then, copy the VBA code below into a module.
Sub ChangeAllContactsFolderViews()
    Dim objStore As Outlook.Store
    Dim objFolder As Outlook.Folder

    For Each objStore In Application.Session.Stores
        For Each objFolder In objStore.GetRootFolder.Folders
            'To change the views of all the other types of folders:
            'modify "olContactItem" as per your needs
            If objFolder.DefaultItemType = olContactItem Then
               Call ProcessFolders(objFolder)
            End If
        Next
    Next
 
    MsgBox "Complete!", vbInformation + vbOKOnly
End Sub

Sub ProcessFolders(ByVal objCurrentFolder As Outlook.Folder)
    Dim objViews As Outlook.Views
    Dim objView As Outlook.View
    Dim objSubFolder As Outlook.Folder
 
    Set objViews = objCurrentFolder.Views
    'Apply "List" view to all contact folders
    'You can use the other view, just alter the view name
    Set objView = objViews.Item("List")
    objView.Apply
 
    'Process all subfolders recursively
    If objCurrentFolder.Folders.Count > 0 Then
       For Each objSubFolder In objCurrentFolder.Folders
           Call ProcessFolders(objSubFolder)
       Next
    End If
End Sub

VBA Code - Batch Change Views of All Folders in Same Type

  1. After that, make sure that the cursor is in the first subroutine.
  2. Finally, press “F5” key button.
  3. At present, all the Contacts folders’ views have been changed to “List” view.All Contacts Folder Use "List" View

Fix Bothersome Outlook Issues

In the event of disturbing Outlook problems, you will take actions to solve them. To fix tiny errors, you can simply employ the inbox fix tool. But, if the issues are highly beyond the capacity of the internal tool, you have to seek help from a more potent utility, such as DataNumen Outlook Repair. It can fix Outlook with ease.

Author Introduction:

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

Comments are closed.