邮件附件中的图片以正文方式发送,但是接收方无法显示
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", 现在问题是该如何获得@以后的这部分地址信息。