HTMLbody怎么引用附件图片插入邮件正文

初学VBA，做出一个在报表里自动发邮件的小程序 ,但是最后效果outlook中显示出附件图片而没有图片附件，收件后则是有图片附件，正文中图片全白无法显示，解决如下(注意cid:是要小写的，否则不行):

Dim newMlItem As Outlook.MailItem
ms = "C:\Users\temp\Desktop\TEMP.BMP"
FileName = "TEMP.BMP"
Set newMlItem = Outlook.CreateItem(olMailItem)
With newMlItem
.Subject = "FW:"
.Attachments.add ms
.HTMLBody = "<p><span lang=EN-US style='font-size:10.0pt;font-family:""Arial"",sans-serif'><img id=""TEMP.BMP"" src=""cid:TEMP.BMP""></span>"
.To = "abc@sina.com"
.send
End With
End Sub
————————————————
版权声明：本文为CSDN博主「flylili」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。
原文链接：https://blog.csdn.net/flylili/article/details/108632203