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

2020-05-11 11:02:30 1.2k 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

ESP32S3新手避坑：用IDF5.0驱动GT911触摸屏，我踩过的三个雷都给你填平了本文详细解析了在ESP32S3开发板上使用IDF5.0驱动GT911触摸屏时常见的三大问题：软重启失效、状态寄存器读取异常和初始化参数差异。通过逻辑分析和硬件调试工具，提供了针对性的解决方案和优化建议，帮助开发者高效完成触摸屏驱动开发。阅读详情

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", 现在问题是该如何获得@以后的这部分地址信息。

...全文