Bring back sorting for All/Unread/Mentions and Arrange By quick sorting by Date, Size, etc. In the latest update the view change to consolidate to a singular 'All' dropdown that allows you to choose between the former All, Unread, Mentions and then to easily Sort with Arrange By.
Hi, The following VBA code can archive your goal: Function AddSearchFolderToFavoriteGroup(SearchFolder As Folder) As NavigationFolder Dim mailMod As MailModule Dim navPane As NavigationPane Dim navGroup As NavigationGroup ' Get the NavigationPane object for the currently displayed Explorer object. Set navPane = ActiveExplorer.NavigationPane ' Get the mail module from the Navigation Pane. Set mailMod = navPane.Modules.GetNavigationModule(olModuleMail) ' Get the 'Favorite Folders' navigation group from the mail module. Set navGroup = mailMod.NavigationGroups.GetDefaultNavigationGroup(olFavoriteFoldersGroup) ' Add a new navigation folder for the SearchFolder in the 'Favorite Folders' navigation group. AddSearchFolderToFavoriteGroup = navGroup.NavigationFolders.Add(SearchFolder) Set mailMod = Nothing Set navPane = Nothing Set navGroup = Nothing End Function Sub AddSearchFolderToFavoriteGroupByName(ByVal SearchFolderName As String) Dim myStore As Store Dim myStores As Stores Dim mySearchFolder As Folder Dim mySearchFolders As Folders On Error Resume Next Set myStores = Session.Stores ' /* Go through each Store object in the Stores collection.
*/ For Each myStore In myStores Set mySearchFolders = myStore.GetSearchFolders For Each mySearchFolder In mySearchFolders If mySearchFolder.Name = SearchFolderName Then AddSearchFolderToFavoriteGroup mySearchFolder End If Next Next End Sub Sub Demo() AddSearchFolderToFavoriteGroupByName 'unread mail' End Sub Best Regards. Hi, The following VBA code can archive your goal: Function AddSearchFolderToFavoriteGroup(SearchFolder As Folder) As NavigationFolder Dim mailMod As MailModule Dim navPane As NavigationPane Dim navGroup As NavigationGroup ' Get the NavigationPane object for the currently displayed Explorer object. Set navPane = ActiveExplorer.NavigationPane ' Get the mail module from the Navigation Pane. Set mailMod = navPane.Modules.GetNavigationModule(olModuleMail) ' Get the 'Favorite Folders' navigation group from the mail module.
Set navGroup = mailMod.NavigationGroups.GetDefaultNavigationGroup(olFavoriteFoldersGroup) ' Add a new navigation folder for the SearchFolder in the 'Favorite Folders' navigation group. AddSearchFolderToFavoriteGroup = navGroup.NavigationFolders.Add(SearchFolder) Set mailMod = Nothing Set navPane = Nothing Set navGroup = Nothing End Function Sub AddSearchFolderToFavoriteGroupByName(ByVal SearchFolderName As String) Dim myStore As Store Dim myStores As Stores Dim mySearchFolder As Folder Dim mySearchFolders As Folders On Error Resume Next Set myStores = Session.Stores ' /* Go through each Store object in the Stores collection. */ For Each myStore In myStores Set mySearchFolders = myStore.GetSearchFolders For Each mySearchFolder In mySearchFolders If mySearchFolder.Name = SearchFolderName Then AddSearchFolderToFavoriteGroup mySearchFolder End If Next Next End Sub Sub Demo() AddSearchFolderToFavoriteGroupByName 'unread mail' End Sub Best Regards.