当前位置：首页 → 问答吧 → [求助]正文发送图片 HTMLBody如何写

[求助]正文发送图片 HTMLBody如何写

时间：2008-07-18

来源：互联网

各位大侠：

本人做一个VBA 发送邮件小东东，目前遇到一个问题，就是要在正文部分放一个图片，我试验好多次

用img src="file:///D|/Book2_14787_image002.gif " 方法发出去，只能我自己电脑能显示，别人电脑无法显

示图片，主要是连接地址原因。

请问在HTMLBody部分如何写，才能解决这个问题。请帮忙！

Set oItem = olkapp.CreateItem(olMailItem)
Set myAttachments = oItem.Attachments
With oItem
   .To = "INVENTYR_1"
   .Subject = op
   .HTMLBody = "  如何写 "
   .Importance = olImportanceLow
   .NoAging = True
   .display
End With

作者: haiyinsha 发布时间: 2008-07-18

在网上找了这么长时间发现<img src=” cid:IMG”> </img> 现在主要是cid后面的IMG

content id代码搞不来！

有那位大侠能帮忙吗？或有更好的办法！

作者: haiyinsha 发布时间: 2008-07-18

不知哪位高手可以解答一下

作者: gougou631 发布时间: 2009-04-24

如果只是引用本机图片,则可以使用以下代码. 注意C盘下要放相应名字的图片.

Sub InsertPicture()

Dim myOlApp As New Outlook.Application
Dim mynamespace As Outlook.NameSpace
Dim myfolder As Outlook.Folder

Set objOL = CreateObject("Outlook.Application")
Set objMail = objOL.CreateItem(olMailItem)
objMail.Attachments.Add "C:\pictest.jpg"
objMail.HTMLBody = "<html><p>插入图片</p>" & _
"<img src='cid:pictest.jpg' height=480 width=360>"
objMail.Display

Set myfolder = Nothing
Set mynamespace = Nothing

End Sub

但这个图发给别人应该是显示不了.

作者: aaaaabbbbb 发布时间: 2009-05-09

在自己的电脑上试了一下，还可以
不知道在公司的电脑能不能用

作者: gougou631 发布时间: 2009-09-03

呵呵。我也遇到这个问题，不过我解决了。

html 里直接写图片的文件名。不要带路径。
然后用 .AttachFile.Add 添加图片就可以咯。

作者: dzmaster 发布时间: 2011-03-23