title: Selection from Microsoft Word To Outlook New Email using VBA
body: <p>I tried this Microsoft Word Macro to paste the Selection I've done into a new email, but when I do it in HTML format, while there is not <code>&lt;br&gt;</code> at the end of each paragraph, the result is the sentence word by word without carriage return.</p>
  
  <p>Example:
  <br>Text1
  <br>Text2
  <br>Text3</p>
  
  <p>I get:
  <br>Text1 Text2 Text3</p>
  
  <pre><code>Dim rng As Range
  Dim OutApp As Object
  Dim OutMail As Object
  
  Set rng = ActiveDocument.Range(Start:=Selection.Start, End:=Selection.End)
  
  Set OutApp = CreateObject("Outlook.Application")
  Set OutMail = OutApp.CreateItem(olMailItem)
  
  On Error Resume Next
  With OutMail
      .Display
      .To = "to@email.com"
      .CC = "cc@email.com"
      .BCC = ""
      .Subject = Date
      .BodyFormat = olFormatHTML
      .HTMLBody = "&lt;HTML&gt;&lt;body&gt;&lt;font face=""calibri"" style=""font-size:11pt;""&gt;&lt;br&gt;" &amp; rng &amp; _
  "&lt;br&gt;&lt;br&gt;&lt;/body&gt;" &amp; _
  "Best Reagrds" &amp; _
           .HTMLBody &amp; "&lt;/font&gt;"
      .Text
  </code></pre>