Peculiar Outlook VBA item, Application_Quit

niton · #2 07-16-2014, 11:42 AM

Object required. Here is sample code.

Code:

 
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

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Outlook 'actions' menu item moved to the left?	galgewater	Outlook	0	07-30-2012 07:05 AM
How do I delete an Outlook appointment item with VBA?	Joe Patrick	Outlook	0	07-14-2011 06:56 AM
How to Delete Outlook Item with VBA	Joe Patrick	Outlook	0	07-14-2011 06:49 AM
How do you update existing Outlook calendar item from Word with macro?	Joe Patrick	Word VBA	0	07-09-2011 05:32 AM
Peculiar cell behavior	markg2	Excel	7	05-28-2011 07:46 PM