Excel vba 发送邮件正文 + 精美邮件背景(or 谓之信纸)

kangatang · 发表于 2012-2-23 12:08

本帖最后由 kangatang 于 2012-2-24 12:52 编辑

先上附件

mail with stationary.rar (25.44 KB, 下载次数: 637)

还可以定制LOGO

Email with Log of Yourself.rar (12.76 KB, 下载次数: 346)

.htmlbody的妙处是，可以被赋值成任意htm文件的源码。
至于适合邮件背景的源码从"C:\Program Files\Common Files\Microsoft Shared\Stationery"
中可以看到很多。比如下图的源码是
<html>
<head>
<title id="ridTitle">Leaves</title>
<style>

</style>
</head>
<body id="ridBody" background="Leaves Bkgrd.jpg">
<center><img id="ridImg" src=aleabanr.gif align=bottom>
</center>
<p></p> <SPAN id="_AthCaret">
</SPAN> <p></p>
</body>
</html>

kangatang · 发表于 2012-2-23 12:32

本帖最后由 kangatang 于 2012-2-23 13:18 编辑

运行下来，不知是否有像我一样的效果。

PLS. 所有附件的自动发送功能，被我阉割掉了。如果需要可以放进去。

kangatang · 发表于 2012-2-24 12:44

谢谢DSD99版主，因为表扬所以将第一个附件做了改进。应该运行无误。

kangatang · 发表于 2012-6-1 12:20

事实上，并没真正做到信纸功能。
前几天一直在研究用Content-id在邮件中插入图片，就是在邮件查看源文件(view source时看到的比如 <IMG src="cid:239335301@01062012-27B6">

用outlook发送和接收，可以制作这样一个CID形式的的嵌入。但是如果接收方不用OUTLOOK就不能保证对方看到嵌入式的图片(非附件形式或超链接形式)

kjianwu · 发表于 2012-6-1 11:02

我需要正需要这样的内容，可以把广告图片做为附近发上去的。

kjianwu · 发表于 2012-6-1 13:00

我试了发送不成功。如果在htmlbody上写上html代码是发不成功的，不知道为什么？

sypzj · 发表于 2012-6-11 19:10

先顶后看~~

激情火爆不黄不暴力www.ra006.com

kangatang · 发表于 2013-2-28 19:06

zdlfb 发表于 2013-2-26 16:42
lz,我也跟你遇到了同样的问题，想在邮件正文插入图片，并且这个图片是excel正文的某个区域，好伤脑筋啊， ...

图片是区域？截个图上来看看吧

zdlfb · 发表于 2013-2-26 16:42

kangatang 发表于 2012-6-1 12:20
事实上，并没真正做到信纸功能。
前几天一直在研究用Content-id在邮件中插入图片，就是在邮件查看源文件(v ...

lz,我也跟你遇到了同样的问题，想在邮件正文插入图片，并且这个图片是excel正文的某个区域，好伤脑筋啊，不知楼主有想法么？

kangatang · 发表于 2013-3-27 23:22

zdlfb 发表于 2013-3-27 23:08
就是想用VBA调用outlook发送图片，如果是对方用的是outlook，那么可以正常显示图片，但是用的别的邮箱软件 ...

曾想到直接修改OUTLOOK的模板文件（.oft），里面有CID(content id)指向BASE 64 编码的图片内容。没能力做这个事情。

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

[分享] Excel vba 发送邮件正文 + 精美邮件背景(or 谓之信纸)

评分

[分享] Excel vba 发送邮件 正文 + 精美邮件背景(or 谓之信纸)

评分

[分享] Excel vba 发送邮件正文 + 精美邮件背景(or 谓之信纸)