title: Copy All Visible(Formatted Text) from Excel to Outlook using VBA?
body: <p>Copy All Visible(Formatted Text) from Excel to Outlook using VBA?</p>
  
  <p>Please find below code to send email through outlook. However, I want to send the email with a selection that I have copied below using code. 
  I do not wish to create a Table as HTML but instead just copy all visible?</p>
  
  <pre><code>Sub EmailRep()
  
  
  Dim Mailbody As Range
  
  Application.DisplayAlerts = False
  
  Dim Outlook As Outlook.Application
  Set Outlook = CreateObject("Outlook.Application")
  Dim outmail As MailItem
  Set outmail = Outlook.CreateItem(0)
  
  Set Mailbody = ActiveWorkbook.Worksheets("Dashboard").Range("A1:F30")
  Mailbody.Copy
  
  With outmail
  
  .To = "abc@xyz.com"
  .Subject = "All Open"
  .Body = "This is Test Email"
  .Display
  .Send
  End With
  
  
  Set Outlook = Nothing
  Set outmail = Nothing
  Set Mailbody = Nothing
  
  
  End Sub
  </code></pre>