Macro to send Chart in Outlook Mail body

If you want to send chart automatically in the body of outlook . Try this macro-

Sub sample_macro()

    Dim olMail As MailItem
    Dim objOL As Object
    Dim chrtpth As String
    Dim bdy As String
    Dim startmsg As String
    Dim endmsg As String
    
    ' create a unique Name
    chrtpth = ThisWorkbook.Path & "\" & Environ("USERNAME") & VBA.Format(VBA.Now(), "DD_MM_YY_HH_MM_SS") & ".bmp"
    'Change chart name which you want to export
    Sheets("Sheet1").ChartObjects("Chart 3").Chart.Export chrtpth
    
    ' add the mail content and chart to the outlook mail body
    
    bdy = "<p align='Left'><img src=""cid:" & Mid(chrtpth, InStrRev(chrtpth, "\") + 1) & """  width=700 height=500 > <br> <br>"
    startmsg = "<font size='5' color='black'> Hi Ashish," & "<br> <br>" & "Please find the chart below: " & "<br> <br> </font>"
    endmsg = "<font size='4' color='black'> Many Thanks," & "<br>" & "Ashish Koul" & "<br> <br> </font>"
    
    
    ' send the email
    
    Set objOL = CreateObject("Outlook.Application")
    Set olMail = objOL.CreateItem(olMailItem)
    
    With olMail
        .To = "koul.ashish@gmail.com"
        .Subject = "Add Chart in outlook mail body"
        .Attachments.Add chrtpth
        .HTMLBody = startmsg & bdy & endmsg
        .Display
    End With
    
    ' delete the exported chart
    Kill chrtpth
    
    Set olMail = Nothing
    Set olApp = Nothing

End Sub







Download Working File