Send chart with attachment to multiple receipt's vba

Dear expert

i want run macro to send charts through from list of precipitant in excel vba

i have 5 charts in sheet1 i want view the chart in body of text in outlook to particular mail id's

please find the attachment of sendchart

and desire result file also


Check this code where can i assign this task ?
Sub Preview()

I = Cells(2, "B").Value ' dynamising startrownumber to user fed value at cell B2

Do ' start the action ,buddy!!!!


Subj = Cells(I, "A").Value
Filepath = Cells(I, "B").Value
EmailTo = Cells(I, "C").Value
CCto = Cells(I, "D").Value
msg = Cells(I, "E").Value


Application.DisplayAlerts = False

Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = EmailTo
.CC = CCto
.BCC = ""
.Subject = Subj
.body = msg
.Attachments.Add Filepath
.display


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

Application.DisplayAlerts = True

I = I + 1

Cells(1, "A").Value = "Outlook sent Time,Dynamic msg preview count =" & I - 3

Loop Until Cells(I, "C").Value = ""


End Sub