Adding chart & HTML to e-mail

[Anonymous]

Hi guys, i have the following code

1. Sub Email_Test
2. newfile = "C:\Newfile.xls"
3. EmailBody = "<font face = " & Chr(34) & "Calibri" & Chr(34) & ">Hi, <BR> <BR>" & _
4.         "<BR> <BR> Please use this link to the new file: <a href=" &_
5.         Chr(34) & newfile & Chr(34) & ">Click here</a> <BR> </font>"
6. 
   
7. Set myApp = CreateObject ("Outlook.Application") 
8. Set myMessage = myApp.CreateItem(olMailItem) 
9. myMessage.BodyFormat = 2 'HTMLFormat 
10. myMessage.To = "test@test.com" 
11. myMessage.Subject = "New file" 
12. Set myInspector = myMessage.GetInspector 'add signature to e-mail 
13. Set myDoc = myInspector.WordEditor 
14. ActiveDocument.GetSheetObject("CH46").CopyBitmapToClipboard
15. myDoc.Range(0,0).PasteSpecial False, False, 0, False, 5 
16. myInspector.WordEditor.Content.InsertBefore chr(13) 
17. myInspector.WordEditor.Content.InsertBefore chr(13) 
18. myInspector.WordEditor.Content.InsertBefore EmailBody & chr(13) & chr(13)
20. myMessage.Display 
21. Set myMessage = Nothing 
22. Set myApp = Nothing 
23. Set myInspector = Nothing 
24. Set myDoc = Nothing 
26. End sub

It adds the chart to the body of the e-mail which is great but adds the actual text rather than the html code. Can anyone help me here? I'd like to add the html code and then the chart

[Frank_Hartmann · Accepted solution]

try like that:

Sub Email_Test
Set myApp = CreateObject ("Outlook.Application")
Set myMessage = myApp.CreateItem(olMailItem)
    newfile = "C:\Users\Admin\Desktop\123.xlsx"
    myMessage.body = ("EmailBody")
    myMessage.HTMLBODY = "<font face = " & Chr(34) & "Calibri" & Chr(34) & ">Hi, <BR> <BR>" & _
                         "<BR> <BR> Please use this link to the new file: <a href=" &_
                         Chr(34) & newfile & Chr(34) & ">Click here</a> <BR> </font>"
    'myMessage.Attachments.Add("C:\Users\Admin\Desktop\123.xlsx")            'If you want to attach a file
    myMessage.BodyFormat = 2 'HTMLFormat 
    myMessage.To = "test@test.com" 
    myMessage.Subject = "New file" 
    Set myInspector = myMessage.GetInspector 'add signature to e-mail 
    Set myDoc = myInspector.WordEditor 
    ActiveDocument.GetSheetObject("CH46").CopyBitmapToClipboard
    myDoc.Range(0,0).PasteSpecial False, False, 0, False, 5 
    myInspector.WordEditor.Content.InsertBefore chr(13) 
    myInspector.WordEditor.Content.InsertBefore chr(13) 
    myInspector.WordEditor.Content.InsertBefore EmailBody & chr(13) & chr(13)
    myMessage.Display 
    Set myMessage = Nothing 
    Set myApp = Nothing 
    Set myInspector = Nothing 
    Set myDoc = Nothing 
End sub

[Anonymous]

Can we add the text and then the chart?

[Anonymous]

I got it

myDoc.Range(len(EmailBody),len(EmailBody)).Paste

Thanks for your help again!