How to send an embedded image in email from excel

2020-06-17 14:27发布

站内问答 / 前沿技术
1957 2 5

I would like to send a Excel chart in the body of an email (Outlook) (not as attachment) from VB, anyone know how to do this?

Solved:
Just to add a bit more detail to answer below you'll need the following (could do with some improvement).

Sheets(2).ChartObjects(1).Chart.Export "C:\temp\Chart2.png"

....

   .HTMLBody = "<html xmlns:o='urn:schemas-microsoft-com:office:office'" & _
            "xmlns: x = 'urn:schemas-microsoft-com:office:excel'" & _
            "xmlns='http://www.w3.org/TR/REC-html40'> " & _
            "<head></head><body><img src='Chart2.png'></body></html>"

and

    .Attachments.Add ("C:\temp\Chart2.png")

标签： excel outlook
举报
2条回答
戒情不戒烟
2楼-- · 2020-06-17 14:31

I thought I'd add my solution here in addition to the one above since it is using both a sub and a temporary file path, in case you are interested.

I changed the code from here to insert a chart using a temporary path (they do the same thing using a range of cells in the workbook):

Sub createGraph(nameSheet As String, nameChart As String, nameFile As String)
  ThisWorkbook.Activate
  Worksheets(nameSheet).Activate
  With ThisWorkbook.Worksheets(nameSheet).ChartObjects(nameChart)
    .Activate
    .Chart.Export Environ$("temp") & "\" & nameFile & ".jpg", "JPG"
  End With
End Sub

In the HTML body put:

Call createGraph("Graphs", "Chart 1", "filename")
TempFilePath = Environ$("temp") & "\"
.Attachments.Add TempFilePath & "filename.jpg", olByValue, 0
.HTMLBody = .HTMLBody & "<img src='cid:filename.jpg'>"

By using "olByValue, 0" the attachment is added at position 0 and not visible in the email as an attachment.

查看更多
0人赞 添加讨论(0) 举报
淡お忘
3楼-- · 2020-06-17 14:34

Seems like the best way is to export the chart:

Sheets(1).ChartObjects("Chart 1").Chart.Export "C:\Chart1.png"

And then add the image into your mail HTML body:

.HTMLBody = .HTMLBody & "< img src='c:\folder\filename.png'>"

Confirmed by both technet and mrexcel

查看更多
0人赞 添加讨论(0) 举报
登录 后发表回答
相关问题
查看全部
相关文章
查看全部
收藏的人(5)