- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助] 邮件正文插入图像 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=186634)
-- 发布时间：2023/5/16 19:43:00
-- [求助] 邮件正文插入图像
老师，
以下代码是从Excel中提取指定图片后存入d:\\aaa.jpg， 如何再将这图片以图像形式插入到如下邮件正文中 ？
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\\Test.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)\'指定工作表
Dim range = ws.range("A3:D10")
range.CopyPicture(Appearance:=1, Format:=2)
ClipBoard.GetImage.save("d:\\aaa.jpg")
-- 发布时间：2023/5/16 20:15:00
--
参考：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=162992
-- 发布时间：2023/5/16 20:35:00
--
谢谢老师，
以下改成密送和发件人的邮件也看不到，如何修改 ？
msg.Recipients.Add("spring.me@qq.com") \'收件人郵件地址
-- 发布时间：2023/5/16 21:19:00
--
百度了
https://learn.microsoft.com/zh-cn/office/vba/api/outlook.mailitem.bcc
https://www.cnblogs.com/DerekDeng/p/11598104.html