title: VBA Excel to Outlook font formatting
body: <p>I am currently working on a process automation for my work. Basically, the macro analyses the data and creates an email with results. </p>
  
  <p>Everything works perfectly fine, besides the fact I have absolutely no clue how to implement my font formatting into Outlook's email body. I cannot set font formatting to constant value as each row's formatting varies and is depended on excel formulas and conditional formattings in my worksheet.</p>
  
  <p>The function which creates the HTML body looks as below:</p>
  
  <pre><code>            Private Function BodyBuilder(wsA As Worksheet) As String
              Dim html As String
              Dim sTTo As String
              Dim rngSN As Range
              Dim cl As Range
              Dim sName As String
  
  
              Set OutSh = ThisWorkbook.Sheets("Output")
  
                 sTTo = Comm.Cells(5, 4)
  
                 sName = OutSh.Cells(3, 2)
  
                 html = "Dear " &amp; sTTo &amp; ","
  
              Set rngSN = OutSh.Range("a4:a11")
  
              html = html &amp; "&lt;br&gt;&lt;br&gt;&lt;table&gt;&lt;tr&gt;&lt;td&gt;&lt;strong&gt;" &amp; "Detailed risk report for selected company - " &amp; sName &amp; "&lt;/strong&gt;&lt;/td&gt;&lt;/tr&gt;"
  
              **For Each cl In rngSN
                 html = html &amp; "&lt;tr&gt;&lt;td&gt;" &amp; Format(cl.Value, cl.NumberFormat) &amp; "&lt;/td&gt;&lt;td&gt;" &amp; cl.Offset(, 1).Value &amp; "&lt;/td&gt;&lt;/tr&gt;"
              Next cl**
  
  
              html = html &amp; "&lt;/table&gt;" &amp; "&lt;br&gt;" &amp; "Kind regards"
  
              BodyBuilder = html
              End Function
  </code></pre>
  
  <p>Basically, the email looks perfectly fine besides that I would like to see my values with it's font formats (bolded if needed and colors).</p>
  
  <p>Can someone help with this?</p>
  
  <p>Thank  you</p>