Send Email With Message Autosig and Chart

I recently had some luck sending emails with a body and still keeping my auto signature. It used to erase the signature whenever I wrote anything in the body. But this does the trick:

strbody = "Whatever I want to say in the email."
.HTMLBody = strbody & "<br>" & .HTMLBody

But now I also want to insert a chart. The email will let me insert a workbook range into the subject line, but I haven't had any luck with the email body.

Sub Send_Email()

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

    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    Chart = Sheets("Buttons").Range("B5:F12").Value
   
    strbody = "The following records have been updated or created and are ready for audit."

    On Error Resume Next

    With OutMail
        .Display
        .To = ""
        .CC = ""
        .BCC = ""
        .Subject = "EQ QA Task Pull   " & Sheets("Buttons").Range("H2")
        .HTMLBody = strbody & "<br>" & .HTMLBody
        
        '.Send
    End With

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



End Sub