I am using Outlook 2003 and I have a personal folder with many sub-folders in it. I would like to replicate a new view that I have created to all the sub-folders. I have went through all the solutions in EE but none seems to work. Almost all of them suggest to go to the individual folders > view > arrange by > current view > and select "my_new_view". This is not a feasible idea as i got more than 100 sub folders and also sub-sub folders.
I saw a macro script posted by BlueDevilFan that can loop through the sub folders and change them to the new view. But the problem is that they script can only loop one level down, it won't go to the sub-sub-folders. I am looking for anyone that can come out with a new script that can do that. If you have any other solutions, please feel free to post here too. Thanks.
Dim objExplorer As Outlook.Explorer, _
objTempExplorer As Outlook.Explorer, _
objFolder As Outlook.MAPIFolder, _
strViewName As String
strViewName = InputBox("What view would you like to change to?", "Change Current View")
If strViewName <> "" Then
Set objExplorer = Application.ActiveExplorer
objExplorer.CurrentView = strViewName
For Each objFolder In objExplorer.CurrentFolder.Folders
Set objTempExplorer = Application.Explorers.Add(objFolder)
objTempExplorer.CurrentView = strViewName
Set objTempExplorer = Nothing
Set objFolder = Nothing
Set objExplorer = Nothing