title: How to move all messages in a conversation?
body: <p>I need to know how to move all of the messages in a conversation at once. </p>
  
  <p>My macro currently reads</p>
  
  <pre><code>Sub Archive()
      Set ArchiveFolder = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Parent.Folders("Archive")
      For Each Msg In ActiveExplorer.Selection
          Msg.UnRead = False
          Msg.Move ArchiveFolder
      Next Msg
  End Sub
  </code></pre>
  
  <p>But that only moves the latest message... and only when the conversation is fully collapsed! I can't Archive when the conversation is expanded.</p>