Cách copy giữ liệu từ excel sang outlook giữ nguyên định dạng ban đầu bằng code VBA

Em viết code như bên dưới: 

Sub Mail_small_Text_Outlook()
   Dim xOutApp As Object
   Dim xOutMail As Object
   Dim xMailBody As String
   Application.ScreenUpdating = False
   Application.DisplayAlerts = False
   Set xOutApp = CreateObject("Outlook.Application")
   Set xOutMail = xOutApp.CreateItem(0)
  
   xMailBody = "    Hi Ms.Rachel," & vbNewLine & vbNewLine & _
             "Account: " & Sheet1.Range("B3").Value & vbNewLine & _
             "Matter ID: " & Sheet1.Range("B4").Value & vbNewLine & _
             "Received From: " & Sheet1.Range("B5").Value & vbNewLine & _
             "Re: " & Sheet1.Range("B6").Value & vbNewLine & _
             "Cheque: " & Sheet1.Range("B7").Value & vbNewLine & _
             "Amount: $" & Sheet1.Range("B8") & vbNewLine & _
             "Initials: " & Sheet1.Range("B9").Value

   On Error Resume Next
   With xOutMail
       .To = Sheet1.Range("B1").Value
       .CC = ""
       .BCC = ""
       .Subject = Sheet1.Range("B2").Value
       .Body = xMailBody
       .Display
       '.Send
   End With
   On Error GoTo 0
   Set xOutMail = Nothing
   Set xOutApp = Nothing
   Application.ScreenUpdating = True
   Application.DisplayAlerts = True
End Sub
Khi chạy code thì dữ liệu chuyển từ excel sang outlook không giữ được định dạng như ban đầu. Mọi người giúp em em cần bổ sung đoạn code như nào để giữ nguyên được định dạng ban đầu ạ