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

Posted on 2006-03-25
Last Modified: 2009-01-23
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!
Question by:qwert5905
    LVL 76

    Accepted Solution

    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

    LVL 32

    Expert Comment

    by:Robberbaron (robr)
    i think the PFDAdmin tool will allow this as well.
    I've certainly used it to replicate public folder permissions.

    Featured Post

    How your wiki can always stay up-to-date

    Quip doubles as a “living” wiki and a project management tool that evolves with your organization. As you finish projects in Quip, the work remains, easily accessible to all team members, new and old.
    - Increase transparency
    - Onboard new hires faster
    - Access from mobile/offline

    Join & Write a Comment

    Find out how to use dynamic social media in email signatures with this top 10 DOs & DON’Ts.
    Set OWA language and time zone in Exchange for individuals, all users or per database.
    Get people started with the process of using Access VBA to control Outlook using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Microsoft Outlook. Using automation, an Access applic…
    This Experts Exchange video Micro Tutorial shows how to tell Microsoft Office that a word is NOT spelled correctly. Microsoft Office has a built-in, main dictionary that is shared by Office apps, including Excel, Outlook, PowerPoint, and Word. When …

    746 members asked questions and received personalized solutions in the past 7 days.

    Join the community of 500,000 technology professionals and ask your questions.

    Join & Ask a Question

    Need Help in Real-Time?

    Connect with top rated Experts

    12 Experts available now in Live!

    Get 1:1 Help Now