Private WithEvents m_Explorers As Outlook.Explorers
Private Sub Application_Startup()
Set m_Explorers = Application.Explorers
End Sub
Private Sub m_Explorers_NewExplorer(ByVal Explorer As Explorer)
If Application.Explorers.Count > 1 Then
Explorer.ShowPane olNavigationPane, False
End If
End Sub