WEB LISTING 2: Code to Display the Outlook Bar in New Folder Windows

Private WithEvents m_colExplorers As Explorers
Private WithEvents m_objExplorer As Explorer

Private Sub Application_Startup()
    Set m_colExplorers = Application.Explorers
End Sub

Private Sub m_colExplorers_NewExplorer(ByVal Explorer As Explorer)
    Set m_objExplorer = Explorer
End Sub

Private Sub m_objExplorer_SelectionChange()
    If Not m_objExplorer.IsPaneVisible(olOutlookBar) Then
        m_objExplorer.ShowPane olOutlookBar, True
    End If
End Sub

Private Sub Application_Quit()
    Set m_colExplorers = Nothing
End Sub