使用vba通过outlook以html格式发送图表

我正在使用vba将HTML格式的电子邮件中的图表发送到Outlook。 问题是只有我能够看到图表,没有收件人可以查看它。

Fname = Environ $(“temp”)&“\ Chart1.jpg”

ActiveWorkbook.Worksheets("eod summary").ChartObjects("Chart 1").Chart.Export _ Filename:=Fname, FilterName:="JPG" With OutMail .To = "first.lastname@aol.com" .CC = "" .Subject = h .Attachments.Add Fname s = "<p><img src=" & Fname & "></p>" s = "<HTML><BODY><CENTER>" & s & "</CENTER><HTML><BODY>" .HTMLBody = RangetoHTML(rng) & s & RangetoHTML(rng2) .Display .Send End With 

我将文件保存到我的临时文件夹。 有一个共享服务器,收件人使用,但不是每个人都把它作为相同的驱动器(Z驱动器的一些G驱动器的其他人)。 因此,当我试图从文件path中检索图像时,我没有成功。

任何帮助非常感谢!