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()
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