How to propagate folder settings from Inbox to sub-folders.

Is it possible to apply the Inbox settings to all sub-folders. For example, I would like to turn off the reading pane for all folders, but is it possible to do this only once, on the Inbox, and have this propagated to all sub-folders? It's such a pain to have to do this on each individaul folder. Thanks!
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

David LeeCommented:
Greetings, qwert5905.

Folder settings don't trickle down.  They are set on a per folder basis.  There is a way to do this though.  All that's required is a simple macro to ripple through the folders.  The code is below.  Here are the instructions for using it.

1.  Open Outlook.
2.  Click Tools->Macro->Visual Basic Editor
3.  If not already expanded, expand Modules and click on Module1.
4.  Copy the code below and paste it into the right-hand pane.
5.  Save the code by clicking the Diskette icon.
6.  Exit the Visual Basic Editor.
7.  Click Tools->Macro->Security.
8.  Set the Security Level to Medium.
9.  Select a folder in the navigation pane.
10.  Run the KillEmAll macro.  It will run through all subfolders of the selected folder turning the reading pane off for each.

'Code Begins Here
Sub KillEmAll()
    Dim olkStartingFolder As Outlook.MAPIFolder
    Set olkStartingFolder = Application.ActiveExplorer.CurrentFolder
    KillReadingPane olkStartingFolder
    MsgBox "All done!", vbOKOnly + vbInformation, "Turn Reading Pane Off"
    Set Application.ActiveExplorer.CurrentFolder = olkStartingFolder
    Set olkStartingFolder = Nothing
End Sub

Sub KillReadingPane(olkRootFolder As Outlook.MAPIFolder)
    Dim olkExplorer As Outlook.Explorer, _
        olkFolder As Outlook.MAPIFolder
    Set Application.ActiveExplorer.CurrentFolder = olkRootFolder
    Set olkExplorer = Application.ActiveExplorer
    If olkRootFolder.DefaultItemType = olMailItem Then
        If (olkExplorer.IsPaneVisible(olPreview)) Then
            olkExplorer.ShowPane olPreview, False
        End If
    End If
    For Each olkFolder In olkRootFolder.Folders
        KillReadingPane olkFolder
    Set Application.ActiveExplorer.CurrentFolder = olkRootFolder
    Set olkFolder = Nothing
    Set olkExplorer = Nothing
End Sub
'Code Ends Here


Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
Robberbaron (robr)Commented:
i think the PFDAdmin tool will allow this as well.
I've certainly used it to replicate public folder permissions.
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today

From novice to tech pro — start learning today.

Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.