Need to insert a graph/chart in email from active workbook through VB macro.

See more:

VB

Hi am subash, creating an macro with automatically send email with the updated data in chart.. here i cant insert chart in email body or attachment. pls help me to fix this.
SBC.xlsm sheets has two charts. i need to attach both. ppls help its very urgent.

Sub Macro1()
'
' Macro1 Macro
'

'


         ChDir "D:\SBC"
    Workbooks.OpenText Filename:="D:\SBC\SBC.txt", Origin:=437, StartRow:=1, _
        DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter _
        :=False, Tab:=False, Semicolon:=False, Comma:=False, Space:=False, _
        Other:=True, OtherChar:=":", FieldInfo:=Array(Array(1, 1), Array(2, 1)), _
        TrailingMinusNumbers:=True
    Cells.Select
    Cells.EntireColumn.AutoFit
    Range("F8").Select
    Workbooks.Open Filename:="D:\SBC\SBC.xlsm", Origin:=xlWindows
    Range("B12").Select
    Sheets("SBC").Select
    Range("H61").Select
    ActiveWindow.SmallScroll Down:=-81
    Windows("SBC.txt").Activate
    ActiveWindow.SmallScroll Down:=-15
    Columns("A:B").Select
    Selection.Copy
    Windows("SBC.xlsm").Activate
    Columns("A:B").Select
    ActiveSheet.Paste
    Range("D5:D6").Select
    Application.CutCopyMode = False
    ActiveWorkbook.Save
    Windows("SBC.xlsm").Activate
               Call auto_email
     Workbooks(sbc).SaveAs ("sbc report" + Format(Now, "dd-mm-yyyy hh:mm:ss"))
     Workbooks(book1).Activate
     Workbooks(book1).Close
    
    End Sub
    
    Private Sub auto_email()
Set myOutlook = CreateObject("Outlook.Application")
Set mymail = myOutlook.CreateItem(olMailItem)
mymail.Display
mymail.Subject = "Automated SBC report" + Format(Now, "dd-mm-yyyy hh:mm:ss")
mymail.HTMLbody = ActiveSheet.ChartObjects("Chart 1").Add
mymail.To = "nethaji.bose@xxx.com"
mymail.Display
End Sub