title: VBA Copy Email as .MSG to New Email
body: <p>I am new to using VBA and I've looked around trying to find a solution. I don't know if this is even possible but I'm going to try and see if anyone can come up with any ideas.</p>
  
  <p>So when you go into Outlook and you right click on an email, you can select copy. When you create a new email and paste the email, the copied email gets attached as a .msg as an attached file.</p>
  
  <p>I am trying to replicate this process. Right now my process is </p>
  
  <ol>
  <li><p>Find email</p>
  
  <pre><code>InStr(olMail.Subject, "SUBJECT") &lt;&gt; 0
  </code></pre></li>
  <li><p>Display email</p>
  
  <pre><code>olMail.Display 
  </code></pre></li>
  <li><p>Copy body and set text to strPaste</p>
  
  <pre><code>Buf.SetText(OlMail.Body)
  Buf.PutInClipBoard 
  strPaste = Buf.GetText(1)
  </code></pre></li>
  <li><p>Create new email</p>
  
  <pre><code>MailItem = OlApp.CreateItem(0)
  </code></pre></li>
  <li><p>Paste body</p>
  
  <pre><code>.Body = strPaste
  </code></pre></li>
  </ol>
  
  <p>This works but it isn't as clean because there are other things that are going into a message and it would be better for the copied email to be attached to an email instead of copying the body text.</p>
  
  <p>I also don't want to save the email as an .msg and then attach it because other people will be using the macro and it would be quite tedious to change the path of where the email gets saved for every individual. </p>
  
  <p>Any suggestions would be great!</p>