title: Copy excel table to outlook mail and keep the format
body: <p>I am using VBA to send emails of a range of cells within excel. The size of the table goes haywire and all the text being wrap up when I copy over to outlook.  </p>
  
  <p>I would want to keep the same format and size of my table, and I tried to copy as picture but the picture becomes very small. It's from <code>A1:AP98</code>.</p>
  
  <p>Anyone could help? I am using Microsoft office 2010 </p>
  
  <p>below is the code I have </p>
  
  <pre><code>Sub SendEmail()
  
  Dim olApp As Outlook.Application
  Set olApp = CreateObject("Outlook.Application")
  
      Dim olMail As Outlook.MailItem
      Set olMail = olApp.CreateItem(olMailItem)
  
      olMail.Display
  
      olMail.To = "xxxx@xxxx.com"
      olMail.Subject = "Subject Line"
      olMail.HTMLBody = "Hello," &amp; vbNewLine &amp; vbNewLine &amp; _
              "Welcome to My World" &amp; vbNewLine &amp; vbNewLine &amp; _
              RangetoHTML(ActiveSheet.Range("A1:Ap90")) &amp; _
             "Thank you for your cooperation." &amp; "&lt;br&gt;" &amp; olMail.HTMLBody
  '    olMail.Send
  
  End Sub
  </code></pre>