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
- To start with, select a folder.
- Then, switch to “View” tab and click “Change View” button.
- Subsequently, change the current folder’s view to your liking. For instance, in a Contacts folder, change its view from “Business Card” to “List”.
- Later, choose “Apply Current View to Other Contacts Folder” from the drop down list of “Change View”.
- After that, in the pop-up dialog box, select the folders whose views you want to change.
- Lastly, click “OK”.
- Now, all the selected folders’ views have been changed to “List” View.
Method 2: Batch Change Views of All Folders in Same Type
- At the outset, press “Alt + F11” to trigger Outlook VBA editor.
- 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
- After that, make sure that the cursor is in the first subroutine.
- Finally, press “F5” key button.
- At present, all the Contacts folders’ views have been changed to “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.
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