boa tarde a todos

eu consegui aqui adaptar um código VBA para enviar e-mail automaticamente

porem preciso de uma ajuda

gostaria que o texto do corpo de e-mail ficasse todo em negrito, eu consegue fazer com que o texto fique em negrito, mas com a data que eu pego o valor da própria planilha não consegui.

Sub ENVIAR_EMAIL()

    Dim OutApp As Object
    Dim OutMail As Object
    Dim strbody As String

    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)

    strbody = "<font size=""3"" face=""Arial"" color=""black"">" & _
    "<b>Bom dia.</b><br>" _
                & "<br>" _
                & "<b>Segue planilha de recebimento de NF do dia </b>" & Plan1.[A1].Value
        

    On Error Resume Next

    With OutMail
        .Display
        .To = "Fragoso jp<fragosojp12457@hotmail.com.br>"
        .CC = ""
        .BCC = ""
        .Subject = "PLANILHA DE NFS - PR " & Plan1.[A1].Value
        .HTMLBody = strbody & "<br>" & .HTMLBody
        .Attachments.Add ActiveWorkbook.FullName
        .Display 'ou '.Send
    End With

    On Error GoTo 0
    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub