Folder.GetExplorer (Outlook)

Returns an Explorer object that represents a new, inactive Explorer object initialized with the specified folder as the current folder.

This method is useful for returning a new Explorer object in which to display the folder, as opposed to using the ActiveExplorer method and setting the CurrentFolder property. The Explorer.Display method can be used to activate or show the Explorer. The GetExplorer method takes an optional argument of an OlFolderDisplayMode constant. By default, the new Explorer will be displayed in the Normal mode (olFolderDisplayNormal) with all interface elements displayed: a message panel on the right and the navigation pane on the left. The exception to this rule is when you are calling GetExplorer on delegated folders that are in No-Navigation mode (olFolderDisplayNoNavigation) by default. You can apply more restrictions to a default mode, but you cannot lessen the restrictions by changing the OlFolderDisplayMode. The explorer can also be displayed in Folder-Only mode (olFolderDisplayFolderOnly). This mode is essentially the same as the Normal mode (olFolderDisplayNormal) in that it too displays the navigation pane on the left. The most restrictive mode you can use is No-Navigation mode (olFolderDisplayNoNavigation). In this mode, the Explorer will display with no folder list, no drop-down folder list, and any "Go"-type menu/command bar options should be disabled. Basically, the user should not be able to navigate to any other folder within that Explorer window. By default, a delegated (shared) folder appears in No-Navigation mode.

GetExplorer (DisplayMode)

DisplayMode: The display mode of the folder. Can be one of the constants in the OlFolderDisplayMode enumeration.

Sub ActivateContactExplorer() 
 
 Dim nsp As Outlook.NameSpace 
 
 Dim mpfContacts As Outlook.Folder 
 
 Dim expContacts As Outlook.Explorer 
 
 
 
 Set nsp = Application.GetNamespace("MAPI") 
 
 Set mpfContacts = nsp.GetDefaultFolder(olFolderContacts) 
 
 Set expContacts = mpfContacts.GetExplorer 
 
 expContacts.Activate 
 
End Sub