title: Add Text & Excel table as picture to email
body: <p>How do I add both text &amp; Excel table (as a picture) to Outlook mail?</p>
  
  <p>I don't want to use the <code>RangetoHTML1</code> function since it doesn't save the conditional formatting. </p>
  
  <p>In the code below, the table is copied as picture to the mail. How do I add the text?</p>
  
  <pre><code>Sub SendCA_list()
      Dim oApp As Object, oMail As Object, rng As Range, p As Picture
      Dim strBody As String, wordDoc As Object
  
      Set oApp = CreateObject("Outlook.Application")
      Set oMail = oApp.CreateItem(olMailItem)
      Set rng = Range("Table4[[#All],[Department]:[Status]]")
      rng.Copy  'copy required table
      Set p = ActiveSheet.Pictures.Paste 'paste and cut the table to make picture
      p.Cut
  
      With oMail
          .Subject = "Request for CAs - ISO Audit"
          strBody = "&lt;BODY style='font-size:12pt;font-family:HP Simplified'&gt;" &amp; _
              "Hi,&lt;br&gt;&lt;br&gt;Please see attached report and the open " &amp; _
              "AIs (itable below).&lt;br&gt;&lt;br&gt;Best Regards,&lt;br&gt;Shira" &amp; "&lt;/BODY&gt;"
          .HTMLBody = strBody
          Set wordDoc = oMail.GetInspector.WordEditor
          wordDoc.Range.Paste
          .Display
      End With
  End Sub
  </code></pre>