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

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

vba excel outlook

使用vba通过outlook发送html格式的图表,vba,excel,outlook,Vba,Excel,Outlook,我正在使用vba将html格式的图表发送到outlook。问题是我只能看到图表，没有一个收件人可以查看它 Fname=Environ$（“temp”）和“\Chart1.jpg” ActiveWorkbook.Worksheets（“eod摘要”）.ChartObjects（“图表1”）.Chart.Export_ 文件名：=Fname，过滤器名：=“JPG” 发邮件 .首先。lastname@aol.com" .CC=“” .Subject=h .Attachments.Add Fname s

我正在使用vba将html格式的图表发送到outlook。问题是我只能看到图表，没有一个收件人可以查看它

Fname=Environ$（“temp”）和“\Chart1.jpg”

ActiveWorkbook.Worksheets（“eod摘要”）.ChartObjects（“图表1”）.Chart.Export_
文件名：=Fname，过滤器名：=“JPG”
发邮件
.首先。lastname@aol.com"
.CC=“”
.Subject=h
.Attachments.Add Fname
s=“”
s=“&s&”
.HTMLBody=RangetoHTML（rng）和s&RangetoHTML（rng2）
.展示
.发送
以

我正在将文件保存到我的临时文件夹中。收件人使用一个共享服务器，但并非所有人都将其称为同一个驱动器（有些是Z驱动器，有些是G驱动器）。因此，我尝试从该文件路径检索图像时失败

非常感谢您的帮助

感谢Ralph的可能副本，只是为了确认必须附上图像才能查看电子邮件中的图表？简短回答：是。详细回答：不，您还可以链接到该图像，每个人都可以从公开可用的服务器检索该文件。但是这些图片/链接经常被大多数电子邮件客户端屏蔽（作为潜在的垃圾邮件像素），并且链接必须对每个人都有效。然而，这有时很难设置。特别是在大公司内部网链接（因为互联网部分被封锁）在大多数情况下与互联网链接不同。还有更多的事情要考虑。但这应该是一个小评论，让你去所有。

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