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 class=MsoNormal><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