title: How can I add padding to my html bullet point list within an email body in VBA?
body: <p>I can't figure out how to add padding/indents on the two list items below in the html body (lines 4 and 5 of .html body). It looks like I need to add some padding via CSS, but I do not know how to do that.</p>
  
  <pre><code>Sub Email_File()
      Dim xOutApp As Object
      Dim xOutMail As Object
      Dim xMailAddress As String
      Dim xMailAddress2 As String
      Dim wb1 As Workbook
      Dim attch As String
      Dim subj As String
  
      Set wb1 = Workbooks("IOM Denial.xlsm")
      Set xOutApp = CreateObject("Outlook.Application")
      Set xOutMail = xOutApp.CreateItem(0)
      xMailAddress = Workbooks("IOM Denial.xlsm").Sheets("Home").Range("B7").Value
      xMailAddress2 = Workbooks("IOM Denial.xlsm").Sheets("Home").Range("B13").Value
      attch = wb1.Sheets("Home").Range("B21").Value
      subj = wb1.Sheets("Home").Range("B17")
  
  
      With xOutMail
          .To = xMailAddress
          .CC = xMailAddress2
          .BCC = ""
          .Subject = subj
          .HTMLBody = "&lt;p&gt;Operations Leadership,&lt;/p&gt;" &amp; _
                      "&lt;p&gt;An inventory performance summary of your submitted IOM requested products is attached. The IOM Summary tab displays the families that are approved or denied based on whether they met the minimum performance turn threshold.&lt;/p&gt;" &amp; _
                      "Products are evaluated for performance by family" &amp; _
                      "&lt;li&gt;Approved products will be scheduled the same as before, based on forecast availability and prioritized by tier productivity&lt;/li&gt;" &amp; _
                      "&lt;li&gt;Denied products are due to a minimum turn threshold of productivity that is not met&lt;/li&gt;" &amp; _
                      "&lt;p&gt;Attached is an inventory performance report based on the family of products that are requested in the associated IOM.  This includes your turn and tier performance, inventory and sales information, the minimum turn threshold and national rank for your territory and decision of Yes/No for approval.&lt;/p&gt;" &amp; _
                      "&lt;p&gt;In addition - we have included three tabs that provide potential opportunities for redeployment within your territory.  Each tab report shows your productivity in each family: by account, by demand model (SISO) and evaluating loose shelf inventory and/or inventory contained in sales team and sales associate locations.&lt;/p&gt;" &amp; _
                      "&lt;p&gt;For those product families where the turn threshold is not met, (NO in column J) please review the performance metrics.  Utilizing the 3 tabs, evaluate the productivity of the identified Parked account turns, site demand model kit delta and misc inventory locations that carry this product family and work to reallocate / rebalance the inventory to meet the need of this particular IOM.&lt;/p&gt;"
          .Attachments.Add attch
          .Display '.Send
      End With
  
  
      Set xOutMail = Nothing
      Set xOutApp = Nothing
  
  End Sub
  </code></pre>
  
  <p>This is basically what I am wanting to do with those two lines, just can't figure out how to specifically write the code within VBA</p>
  
  <pre><code>&lt;html&gt;
  &lt;head&gt;
  &lt;style&gt;
  p.padding {
    padding-left: 2cm;}
  &lt;/style&gt;
  &lt;/head&gt;
  &lt;body&gt;
  
  &lt;h1&gt;The padding-left Property&lt;/h1&gt;
  
  &lt;p&gt;This is a text with no left padding.&lt;/p&gt;
  &lt;p class="padding"&gt;This text has a left padding of 2 cm.&lt;/p&gt;
  
  &lt;/body&gt;
  &lt;/html&gt;
  </code></pre>