如何使用vba将邮件附件中的图片以正文方式显示在邮件里?

z_22222 川大 2020-05-11 11:02:30
Sub 发送邮件()
Dim newMlItem As Outlook.MailItem
ms = "C:\Users\Desktop\捕获.PNG"
FileName = "捕获.PNG"
Set newMlItem = Outlook.CreateItem(olMailItem)
With newMlItem
.Subject = "FW:"
.Attachments.add ms
.HTMLBody = "<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:""Arial"",sans-serif'><img id=""_捕获.PNG"" src=""cid:捕获.PNG""></span>"
.To = "xtms@sina.com"
.Send
End With
End Sub

这样发送出去的邮件,接收方无法显示图片

后来发现图片的实际地址是 "捕获.png@xxxxxxxx", 现在问题是该如何获得@以后的这部分地址信息。
...全文
15 点赞 收藏 回复
写回复
回复

还没有回复,快来抢沙发~

发动态
发帖子
Office开发/ VBA
创建于2007-08-27

4459

社区成员

1.7w+

社区内容

其他开发语言 Office开发/ VBA
社区公告
暂无公告