title: Bold Variables in Email body using Excel Visual Basic
body: <p>This is actually my first time posting on this site - I really appreciate all the help I can get!</p>
  
  <p>I have an Excel sheet that contains</p>
  
  <ul>
  <li>clients emails,</li>
  <li>their name, </li>
  <li>their check dates and</li>
  <li>and their processing date.</li>
  </ul>
  
  <p>I want to send out a reminder email to them daily if their processing date is today. I've been successful in writing the code - but I haven't been able to bold parts of the email (<code>ProcessingDate</code>, <code>CheckDate</code> and <code>Time</code>).</p>
  
  <p>Thank you so much again!</p>
  
  <p>Here is my code:</p>
  
  <pre><code>Sub SendEm()
  Dim i As Integer, Mail_Object, Email_Subject, o As Variant, lr As Long, MyDate As Date, Client As String, ProcessingDate As Date, CheckDate As Date, Time As Date, PayrollSpecialist As String
  Dim Msg As Variant
  
  lr = Sheets("DataSheet").Cells(Rows.Count, "S").End(xlUp).row
  Set Mail_Object = CreateObject("Outlook.Application")
  MyDate = Date
  For i = 2 To lr
      Client = Sheets("DataSheet").Range("S" &amp; i).Value
      ProcessingDate = Sheets("DataSheet").Range("B" &amp; i).Value
      CheckDate = Sheets("DataSheet").Range("C" &amp; i).Value
      Time = Sheets("DataSheet").Range("A" &amp; i).Value
      PayrollSpecialist = Sheets("DataSheet").Range("D" &amp; i).Value
  
          If Sheets("DataSheet").Range("B" &amp; i).Value = MyDate Then
              Msg = "Dear" &amp; " " &amp; Client
              Msg = Msg &amp; Sheets("Email").Range("B2").Value
              Msg = Msg &amp; ProcessingDate &amp; " "
              Msg = Msg &amp; Sheets("Email").Range("B3").Value
              Msg = Msg &amp; CheckDate
              Msg = Msg &amp; ". " &amp; Sheets("Email").Range("B4").Value &amp; " "
              Msg = Msg &amp; Time
              Msg = Msg &amp; " " &amp; Sheets("Email").Range("B5").Value &amp; Sheets("Email").Range("B6").Value &amp; vbNewLine &amp; PayrollSpecialist
              With Mail_Object.CreateItem(o)
                  .Subject = Sheets("Email").Range("A2").Value
                  .To = Sheets("DataSheet").Range("T" &amp; i).Value
                  .Body = Msg
                  '.Send
                  .display 'disable display and enable send to send automatically
              End With
          End If
  Next i
      MsgBox "E-mail successfully sent", 64
      Application.DisplayAlerts = False
      Set Mail_Object = Nothing
  End Sub
  </code></pre>