title: Save mail with subject as filename
body: <p>Good morning all,</p>
  
  <p>I am hoping someone can help me here with a piece of coding.</p>
  
  <p>I am looking to save the selected email to a specific directory, with the name of the email, and of course as a .msg file.
  This is what i have today, and it is not working. It saves a file but the name only has the first 2 characters (looks like it errors after the semi colon file name eg: FW or RE)... the content of the file is blank and the filetype has not been applied.</p>
  
  <pre><code>'code to save selected email
  Dim selectedEmail As MailItem
  Set selectedEmail = ActiveExplorer.Selection.Item(1)
  Dim emailsub As String
  emailsub = ActiveExplorer.Selection.Item(1).Subject
      With selectedEmail
          .SaveAs "C:\direcotry\folder\" &amp; emailsub &amp; ".msg", olMSG
      End With
  </code></pre>
  
  <p>Thank you in anticipation.
  Dom</p>