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

haiyinsha · 发表于 2008-7-18 14:24

各位大侠：

本人做一个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-7-18 16:31

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

content id代码搞不来！

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

gougou631 · 发表于 2009-4-24 23:44

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

aaaaabbbbb · 发表于 2009-5-9 21:56

如果只是引用本机图片,则可以使用以下代码. 注意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

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

gougou631 · 发表于 2009-9-3 21:42

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

dzmaster · 发表于 2011-3-23 14:25

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

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

xzqzgr · 发表于 2011-8-3 19:34

有学到一招，学习先，谢谢分享

shuizhu126 · 发表于 2011-9-12 20:18

好办法，谢谢分享

liucqa · 发表于 2014-5-27 15:47

发送嵌入图片或者文件邮件的原理就是，把图片资源提交（和附件类似方式，但是不同），然后通过修改HTML的IMG标识的SRC实现实现内容的相对引用的。

如我们插入本地图片文件的时候，文件的地址是“D:\test.jpg"，如果这样发送出去，那么肯定是查看不到的了，我们要将它修改为：<img src=\"cid:test\">

然后，我们在邮件正文中附加相关的文件就可以了，这个有点类似于一种特殊的定位格式。

闻启学 · 发表于 2014-5-27 18:10

liucqa 发表于 2014-5-27 15:47
发送嵌入图片或者文件邮件的原理就是，把图片资源提交（和附件类似方式，但是不同），然后通过修改HTML的IM ...

前辈我刚刚尝试过不行的

已经将图片提交为附件了

在邮件正文输入这个 <img src=\"cid:1\">

		自动登录	找回密码
密码			免费注册

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

插入图片的方法我正求解

浏览过的版块