title: Include the original text and formatting in Outlook email response
body: <p>I have Excel code to generate a response to a selected email. The response includes text which is dynamic, based on processing done in Excel.</p>
  <p>I want the response to include the original email text. I tried some things but none preserve the original email formatting, making it appear distorted, e.g. tables being broken up.</p>
  <pre><code>Sub Send_Email()
      Dim emailApplication As Object
      Dim emailItem As Object
  
      Set emailApplication = CreateObject(&quot;Outlook.Application&quot;)
      Set emailItem = emailApplication.ActiveExplorer.Selection.Item(1).ReplyAll
  
      emailItem.SentOnBehalfOfName = &quot;dummy@dummy.com&quot;
  
      emailItem.Body = Sheets(&quot;Email&quot;).Range(&quot;A34&quot;)
  
      emailItem.Display
  
      Set emailItem = Nothing
      Set emailApplication = Nothing
  End Sub
  </code></pre>