title: VBA: How to set single line spacing in Outlook email?
body: <p>I am creating an email from within Excel. Once the email's been created I need to add a comment or two at the top. I've figured out how to set the font style but Outlook is adding a double line space on Carriage Return which I really don't want. How can I change this?</p>
  
  <p>Code below:</p>
  
  <pre><code>Sub CreateDailyEmail()
  
      Dim oApp As Object
      Dim oMail As Object
  
      Set oApp = CreateObject("Outlook.Application")
      Set oMail = oApp.CreateItem(0)
  
      With oMail
          .To = Range("EMAIL_TO")
          .Cc = Range("EMAIL_CC")
          .Subject = Range("EMAIL_SUBJECT")
          .Attachments.Add (Range("PATH"))
          .HTMLBody = "&lt;p style=""font-family: Calibri; font-size: 14px; color: #00f; line-height: 1;""&gt;&lt;br /&gt;&lt;/p&gt;" &amp; RangetoHTML(ActiveWorkbook.Worksheets("Daily").Range("B6:H65"))
          .Display
      End With
  
      Set oMail = Nothing
      Set oApp = Nothing
  
  End Sub
  </code></pre>