title: How to move each emails from inbox to a sub-folder
body: <p>I seem to be getting issues with moving emails from inbox to a sub-folder of inbox. I always thought my code was working until today. I noticed it's only moving half of the emails. I do not need a "move all" code, I have a purpose for this but I just need to move each emails and not all at once (I needed to check each emails). Please take a look at my code below. <code>myNamespace.Folders.Item(1).Folders.Item(2)</code> is my main Inbox.</p>
  
  <pre><code>Sub MoveEachInboxItems()
      Dim myNamespace As Outlook.NameSpace
      Set myNamespace = Application.GetNamespace("MAPI")
  
      For Each Item In myNamespace.Folders.Item(1).Folders.Item(2).Items
          Dim oMail As Outlook.MailItem: Set oMail = Item
             Item.UnRead = True
             Item.move myNamespace.Folders.Item(1).Folders.Item(2).Folders("Other Emails")
      Next
  End Sub
  </code></pre>