Sub GetFolderContents ()

   Dim objOutlook As New Outlook.Application
   Dim objNameSpace As NameSpace
   Dim objFolder As MAPIFolder
   Dim i As Integer

       Set objNameSpace = objOutlook.GetNamespace("MAPI")
       Set objFolder = _
         objNameSpace.GetDefaultFolder(olFolderInbox)  'Access the Inbox

       For i =  1  To objFolder.Items.Count              'Loop through all
         Debug.Print objFolder.Items(i).Subject        'items in the Inbox
       Next                                            'and print the
                                                       'Subject line

       Set objFolder = Nothing
       Set objNameSpace = Nothing
       Set objOutlook = Nothing

   End Sub