title: Copy email to the clipboard with Outlook VBA
body: <p>How do I copy an email to the clipboard and then paste it into excel with the tables intact?</p>
  
  <p>I am using Outlook 2007 and I want to do the equivalent of   </p>
  
  <blockquote>
  <pre><code>"Click on email &gt; Select All &gt; Copy &gt; Switch to Excel &gt; Select Cell &gt; Paste". 
  </code></pre>
  </blockquote>
  
  <p>I have the Excel Object Model pretty well figured out, but have <strong>no</strong> experience in Outlook other than the following code.</p>
  
  <pre><code>Dim mapi As NameSpace
  Dim msg As Outlook.MailItem
  Set mapi = Outlook.Application.GetNamespace("MAPI")
  Set msg = mapi.Folders.Item(1).Folders.Item("Posteingang").Folders.Item(1).Folders.Item(7).Items.Item(526)
  </code></pre>