title: VBA Excel Outlook Email Body Formatting
body: <p>I have useform that sends emails automatically. I want to change the body of the email - some of it will be based on a cell with text so it could be dynamic and some will be fixed in the code. for now - in runs me an error of object required, i'll be thankful for help. 
  I want every line in the body of the email to be separate. </p>
  
  <pre><code>Sub sendMail(ByVal mail As String, name As String, Msht As Worksheet, CCmail As Integer, CCperson As String)
      Dim applOL As Outlook.Application
      Dim miOL As Outlook.MailItem
      Dim recptOL As Outlook.Recipient
      mailSub = Msht.Range("J2")
      mailbody = Msht.Range("L2")
      Set applOL = New Outlook.Application
      Set miOL = applOL.CreateItem(olMailItem)
      Set recptOL = miOL.Recipients.add(mail)
      recptOL.Type = olTo
      If CCmail = 1 Then
          Set recptOL = miOL.Recipients.add(CCperson)
          recptOL.Type = olCC
      End If
      tempPath = ActiveWorkbook.Path &amp; "\" &amp; ActiveWorkbook.name
      With miOL
          .Subject = mailSub
          .Body = "bla bla" &amp; "bla bla bla" &amp; mailbody.Font.Underline &amp; Msht.Range("M2").Font.Bold &amp; Body = Msht.Range("N2")
          .Attachments.add (tempPath)
          .send
  
      End With
      ActiveWorkbook.Close Savechanges:=True
      Set applOL = Nothing
      Set miOL = Nothing
      Set recptOL = Nothing
  End Sub
  </code></pre>