This example minimizes the currently active explorer window when a new explorer is about to appear. The sample code must be placed in a class module, and the Initialize_handler
routine must be called before the event procedure can be called by Microsoft Outlook.
Dim myOlApp As New Outlook.Application
Public WithEvents myOlExplorers As Outlook.Explorers
Public Sub Initialize_handler()
Set myOlExplorers = myOlApp.Explorers
End Sub
Private Sub myOlExplorers_NewExplorer(ByVal Explorer As Outlook.Explorer)
If TypeName(myOlApp.ActiveExplorer) <> "Nothing" Then
myOlApp.ActiveExplorer.WindowState = olMinimized
End If
End Sub