VBA code to format email contents from excel.

[dynamicexcel]

Greetings,

Firstly I am a novice with VBA and macros so any help is greatly appreciated.
I have some code that will generate an email with the active sheet as an attachment. I also have the body of the email preset in the code. What I am trying to do is have a section of text in the body highlighted in yellow.

Here is the code I have:

Sub Email_Utility()

'Original code from techonthenet.com  
    Dim oApp As Object
    Dim oMail As Object
    Dim LWorkbook As Workbook
    Dim LFileName As String
    Dim cNNumber As String
    Dim cSerial As String
    Dim cFrmDate As String
        
    ActiveSheet.Name = Range("AE50").Value
    
    cNNumber = Cells(3, "AB").Value
    cSerial = Cells(3, "AL").Value
    cFrmDate = Cells(2, "AL").Value
        
    'Turn off screen updating
    Application.ScreenUpdating = False

    'Copy the active worksheet and save to a temporary workbook
    ActiveSheet.Copy
    Set LWorkbook = ActiveWorkbook

    'Create a temporary file in your current directory that uses the name
    ' of the sheet as the filename
    LFileName = LWorkbook.Worksheets(1).Name
    On Error Resume Next
    'Delete the file if it already exists
    Kill LFileName
    On Error GoTo 0
    'Save temporary file
    LWorkbook.SaveAs Filename:=LFileName

    'Create an Outlook object and new mail message
    Set oApp = CreateObject("Outlook.Application")
    Set oMail = oApp.CreateItem(0)
   
    With oMail
        .To = "user@experiment.com"
        .Subject = "RTS Flight Request (" & cNNumber & "/" & cSerial & ") " & cFrmDate
                .body = "See attached pending RTS Flight." & vbCrLf & vbCrLf & "Estimated maintenance completion date: ______" _
                & vbCrLf & vbCrLf & "Thanks!"
        .Attachments.Add LWorkbook.FullName
        .Display
    End With

    'Delete the temporary file and close temporary Workbook
    LWorkbook.ChangeFileAccess Mode:=xlReadOnly
    Kill LWorkbook.FullName
    LWorkbook.Close SaveChanges:=False

    'Turn back on screen updating
    Application.ScreenUpdating = True
    Set oMail = Nothing
    Set oApp = Nothing
    
End Sub

The specific text I would like to have highlighted in the email is the "Estimated maintenance completion date: _____"

Thanks in advance for the help!

[dynamicexcel]

After some more searching I found what I needed to achieve the desired result. I wound up using HTML which was much easier as far as formatting goes.

Here is the mail section with the appropriate code:

With oMail
        .To = "user@experiment.com"
        .Subject = "RTS Flight Request (" & cNNumber & "/" & cSerial & ") " & cFrmDate
        .htmlBody = "See attached 'Pending' RTS Flight<br><br>"
        .htmlBody = .htmlBody & "<span style='background:yellow'>Estimated maintenance completion date: ______</span><br><br>"
        .htmlBody = .htmlBody & "Thank you!"
        .Attachments.Add LWorkbook.FullName
        .Display
    End With

Thanks