title: Using Outlook VBA to save selected email(s) as a text file
body: <p>I am trying to save selected emails in Outlook as Text files. </p>
  
  <p>I would like it to work like this:</p>
  
  <ol>
  <li><p>Saves one email at a time but saves all selected emails instead of just a single email.</p></li>
  <li><p>They need to each be saved as a new file.  I know that the export feature saves them all as one large text file, but need them to each have their own.  </p></li>
  </ol>
  
  <p>Here's what I have so far: </p>
  
  <pre><code>Sub SaveEmail()
  
  Dim Msg As Outlook.MailItem
  
    ' assume an email is selected
    Set Msg = ActiveExplorer.Selection.item(2)
  
    ' save as text
    Msg.SaveAs "C:\My Location", OLTXT
  
  End Sub
  </code></pre>