Private Sub Application_Quit()
    Dim olItems As Outlook.Items, olItem As Object, i As Integer
 
    Dim olInbox As Outlook.MAPIFolder
 
    Set olInbox = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
 
    Set olItems = olInbox.Items  ' <----
 
    For Each olItem In olItems
        i = i + 1
    Next
 
    Debug.Print " Number of items in Inbox: " & i
    MsgBox " Number of items in Inbox: " & i
End Sub