title: How to add or remove spaces between lines of text in an email?
body: <p>I create an Outlook email and I want to add or remove spaces between paragraphs.</p>
  <p>I tried using vbNewLine as well as &quot; &quot; but neither make an empty line.</p>
  <p>Additionally, there is a large space after each bullet point for sentences created by my for loop. It is not an empty line, but rather the spacing Before and After the sentence (looking at the Paragraph menu) is set to &quot;Auto&quot; and I would like both to be &quot;0&quot;.</p>
  <pre class="lang-vb prettyprint-override"><code>Sub Email_Budget()
     
      Dim objOutlook As Object
      Set objOutlook = CreateObject(&quot;Outlook.Application&quot;)
     
      Dim objEmail As Object
      Set objEmail = objOutlook.CreateItem(olMailItem)
     
      Dim CaseCount As Long
      CaseCount = WorksheetFunction.CountA(Range(&quot;B6:B500&quot;))
      'Debug.Print CaseCount
     
      Dim i As Integer
     
      With objEmail
          .To = &quot;abc@xyz.com&quot;
          .Subject = &quot;TEST1: May 2019 Budget&quot;
          .HTMLBody = &quot;Karen,&quot;
          .HTMLBody = .HTMLBody &amp; vbNewLine
  
          .HTMLBody = .HTMLBody &amp; &quot;The potential &quot; &amp; _
            MonthName(Month(ActiveSheet.Range(&quot;A2&quot;))) &amp; &quot; invoices are below.&quot;
  
          .HTMLBody = .HTMLBody &amp; vbNewLine
          For i = 1 To CaseCount
              If ActiveSheet.Cells(i + 5, 4).Value = &quot;Yes&quot; Then
                  .HTMLBody = .HTMLBody &amp; &quot;&lt;ul style='list-style-type:disc;'&gt;&quot; &amp; &quot;&lt;li&gt;&quot; &amp; _
                    ActiveSheet.Cells(i + 5, 2).Value &amp; &quot; - &quot; &amp; _
                    Format(ActiveSheet.Cells(i + 5, 6).Value, &quot;Currency&quot;) &amp; _
                    &quot; (&quot; &amp; Format(ActiveSheet.Cells(i + 5, 8).Value, &quot;Currency&quot;) &amp; _
                    &quot; without budget or invoicing).&quot; &amp; &quot;&lt;/li&gt;&quot; &amp; _
                    &quot;&lt;ul style = 'list-style-type:circle;'&gt;&quot; &amp; &quot;&lt;li&gt;&quot; &amp; &quot;Last billed &quot; &amp; _
                    ActiveSheet.Cells(i + 5, 10) &amp; &quot;.&quot; &amp; &quot;&lt;/li&gt;&quot; &amp; &quot;&lt;/ul&gt;&quot; &amp; &quot;&lt;/ul&gt;&quot;
              End If
          Next i
          .HTMLBody = .HTMLBody &amp; vbNewLine
          .HTMLBody = .HTMLBody &amp; vbNewLine
          .HTMLBody = .HTMLBody &amp; &quot;Thank you,&quot;
          .HTMLBody = .HTMLBody &amp; vbNewLine
          .HTMLBody = .HTMLBody &amp; &quot;Kurt&quot;
          .Display
      End With
  End Sub
  </code></pre>