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

[z_22222]

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 = "[e-mail]"
.Send
End With
End Sub

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

后来发现图片的实际地址是 "捕获.png@xxxxxxxx", 现在问题是该如何获得@以后的这部分地址信息。

[qq_43686497]

@jockey1234_ 请问你这个问题解决了吗

[jockey1234_]

请问你这个问题解决了吗