Copy Range into Email Body as chart

[O177812]

Hi,

I am looking to copy a range of cells into an email as a chart instead of an image.
What I have so far is not working. Any assistance would be greatly appreciated.

_____________________________________

Dim OutApp As Object
Dim OutMail As Object
Dim rng As Range

Set rng = ThisWorkbook.Worksheets("SUBMISSION").Range("A51:F57")

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

With OutMail
.To = "carlos@gualaclosuresna.com"
.CC = "shelly@gualaclosuresna.com"
.Subject = Range("D6") & " | " & Range("D9") & " - PRICING UPDATE"
.HTMLBody = "Hi Team, " & "<br>" & "<br>" & _
Chr(10) & "Please update the pricing in Syspro for the below item: " & "<br>" & "<br>" & _
Chr(10) & rng& "<br>" & "<br>" & _
Chr(10) & "Please process at your earliest convenience and let me know if I can provide any additional information." & "<br>" & "<br>" & _
Chr(10) & "Have a great week!"
.Display
End With

_______________________________