NONEXECUTABLE
Listing 1: Code to Initialize an Object Variable for the Inbox' Items Collection

Option Explicit

Private WithEvents olInboxItems As Items

Private Sub Application_Startup()
    Dim objNS As NameSpace
   
    Set objNS = Application.GetNamespace("MAPI")
    Set olInboxItems = objNS.GetDefaultFolder(olFolderInbox).Items
   
    Set objNS = Nothing
End Sub

Private Sub Application_Quit()
    ' disassociate global objects
    Set olInboxItems = Nothing
End Sub