title: VBA Outlook Mailitem - not displaying all items
body: <p>The below code does not pick up all of my emails in the Inbox.</p>
  
  <p>The first item in my list box is an email from yesterday and the last 4/22/2014 - although my mailbox contains A LOT more than that.</p>
  
  <pre><code>Sub CheckEmail()
  
  On Error Resume Next
  
  Dim outApp As Outlook.Application
  Dim outNs As Outlook.Namespace
  Dim outFldr As Outlook.MAPIFolder
  Dim outEmail As Outlook.MailItem
  
  Dim p As Integer
  p = 0
  
  Set outApp = CreateObject("Outlook.Application")
  Set outNs = outApp.GetNamespace("MAPI")
  Set outFldr = outNs.GetDefaultFolder(olFolderInbox)
  
  Dim searcht As String
  
  'find search string
  
  ' do search
  
          For Each outEmail In outFldr.Items
  
              With fmShowsInboxEmails.ListBox1
                  .AddItem outEmail.EntryID
                  .List(p, 1) = outEmail.ReceivedTime
                  .List(p, 2) = outEmail.Subject
                  .List(p, 3) = outEmail.SenderEmailAddress
                  .List(p, 4) = outEmail.Attachments.Count
              End With
  
              p = p + 1
  
          Next outEmail
  
  On Error GoTo 0
  
  Set outApp = Nothing
  Set outNs = Nothing
  Set outFldr = Nothing
  Set outEmail = Nothing
  
  fmShowsInboxEmails.Show
  
  End Sub
  </code></pre>