To: mineshine老师。（Excel自动发邮件延伸问题）

kangatang

HTML超文本代码格式，你可以在OUTLOOK里新建一封邮件，然后排版成你要的格式，最后发给自己的邮箱。收取后，在邮件BODY里看看源文件。哪些超文本代码就出来了。

另外，内容在哪里都不要紧，只要多个读取的步骤。

kangatang

dl0506 发表于 2013-1-13 13:45
OK，谢谢了

“在邮件BODY里看看源文件”，这个是怎么操作的，求教啊

我的英文版outlook。打开邮件，在邮件正文里按鼠标右键，英文名叫VIEW SOURCE CODE

dl0506

kangatang 发表于 2013-1-12 17:08
HTML超文本代码格式，你可以在OUTLOOK里新建一封邮件，然后排版成你要的格式，最后发给自己的邮箱。收取后， ...

OK，谢谢了

“在邮件BODY里看看源文件”，这个是怎么操作的，求教啊

lifibosh

这个帖子真的好有用，一定要顶一下

scarletfish

受益匪浅！感谢各位大侠的指点。

zdlfb

mineshine 发表于 2012-9-10 09:25
参考 Mail the whole workbook
http://www.rondebruin.nl/mail/folder2/mail1.htm

mineshine，你好！你的那个代码是能把单元格内的数据发出去，但是假如表里面有图片，图片却放不到邮件正文啊！有没有什么好的解决方案？

mineshine

zdlfb 发表于 2013-2-26 15:22
mineshine，你好！你的那个代码是能把单元格内的数据发出去，但是假如表里面有图片，图片却放不到邮件正文 ...

参考14楼代码
将要傳送的范围改以图片发出去

zdlfb

mineshine 发表于 2013-2-26 15:29
参考14楼代码
将要傳送的范围改以图片发出去

14楼的那个代码发出去的是单元格区域的内容，不是图片啊，怎么以图片方式发送？

mineshine

zdlfb 发表于 2013-2-26 16:06
14楼的那个代码发出去的是单元格区域的内容，不是图片啊，怎么以图片方式发送？

抱歉，是我记错了。
区域范围要以图片方式发送，可能要运用其它工具，
将选区转换成图片，另存到硬盘中，
然后再以附件方式发送。

Excel图片百宝箱 通用版
http://club.excelhome.net/forum.php?mod=viewthread&tid=865364

zdlfb

mineshine 发表于 2013-2-27 13:12
抱歉，是我记错了。
区域范围要以图片方式发送，可能要运用其它工具，
将选区转换成图片，另存到硬盘中 ...

恩，我回去想了一下，还是要把图片先导出来，
Sub Macro2()
Dim w As Single, h As Single
w = Selection.Width '选中区域的宽度
h = Selection.Height '选中区域的高度
Selection.CopyPicture Appearance:=xlScreen, Format:=xlBitmap '选中区域复制为图片
With Sheet1.ChartObjects.Add(0, 0, w + 10, h + 10).Chart '使用图表对象的导出方法实现导出图片的目的
.Paste
.Export "d:\123.png", "png" '导出图片的文件名称及文件类型
.Parent.Delete
End With
End Sub

这个代码可以导出图片，但是图片有边框，正在思考中……,哥们有什么好建议？？