图片以正文方式发送但是无法显示

z22222

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

z22222

求高手帮忙看一下，在线等哦。