为什么图像在带有 .Display 而不是 .Send 的电子邮件中成功嵌入？

Question

这是我发现非常奇怪且难以解决的问题，我有以下代码：

Sub EmailImage()
Dim oApp As Outlook.Application
Dim oEmail As MailItem
Dim colAttach As Outlook.Attachments
Dim oAttach As Outlook.Attachment

Set oApp = CreateObject("Outlook.Application")
Set oEmail = oApp.CreateItem(olMailItem)
Set colAttach = oEmail.Attachments
Set oAttach = colAttach.Add("C:\Users\User1\Documents\thumbs-up.jpg")
oEmail.Close olSave
oEmail.To = "abc@abc123.com"
oEmail.HTMLBody = "<IMG alt='' hspace=0 src='cid:thumbs-up.jpg' align=baseline border=0>&nbsp;</BODY>"
oEmail.Display
Set oEmail = Nothing
Set colAttach = Nothing
Set oAttach = Nothing
Set oApp = Nothing
End Sub

使用 .Display 代码，图像嵌入成功，一旦图像显示，您点击发送，收件人就可以在电子邮件中看到图像，如下所示：

但问题是我有很多电子邮件要发送，所以使用 .Send 比 .Display 更合适，但是一旦我这样做，图像就会附加到电子邮件，但在其中看不到。

这是更改后的代码：

Sub EmailImage()
Dim oApp As Outlook.Application
Dim oEmail As MailItem
Dim colAttach As Outlook.Attachments
Dim oAttach As Outlook.Attachment

Set oApp = CreateObject("Outlook.Application")
Set oEmail = oApp.CreateItem(olMailItem)
Set colAttach = oEmail.Attachments
Set oAttach = colAttach.Add("C:\Users\User1\Documents\thumbs-up.jpg")
oEmail.Close olSave
oEmail.To = "abc@abc123.com"
oEmail.HTMLBody = "<IMG alt='' hspace=0 src='cid:thumbs-up.jpg' align=baseline border=0>&nbsp;</BODY>"
oEmail.Send
Set oEmail = Nothing
Set colAttach = Nothing
Set oAttach = Nothing
Set oApp = Nothing
End Sub

以及可以在电子邮件中看到的图片：

我不知道为什么会这样，有人可以帮忙吗？

请注意，我使用的是 Windows 7、Excel 2010 和 Outlook 2010。

Answer 1

这对我有用：

Sub EmailImage()
Dim oApp As Object
Dim oEmail As Object

Set oApp = CreateObject("Outlook.Application")
Set oEmail = oApp.CreateItem(olMailItem)
Set colAttach = oEmail.Attachments
Set oAttach = colAttach.Add("C:\Users\User1\Documents\thumbs-up.jpg")
oEmail.Close olSave
oEmail.To = "abc@abc123.com"
oEmail.HTMLBody = "<IMG alt='' hspace=0 src='cid:thumbs-up.jpg' align=baseline border=0>&nbsp;</BODY>"
oEmail.Send
Set oEmail = Nothing
Set colAttach = Nothing
Set oAttach = Nothing
Set oApp = Nothing
End Sub

Answer 2

您需要将附件上的 PR_ATTACH_CONTENT_ID 属性（DASL 名称 http://schemas.microsoft.com/mapi/proptag/0x3712001F）设置为与 img 的 cid 属性匹配的值HTML 正文中的标记。

Set oAttach = colAttach.Add("C:\Users\User1\Documents\thumbs-up.jpg")
oAttach.PropertyAccessor.SetProperty("http://schemas.microsoft.com/mapi/proptag/0x3712001F", "MyCid"
...
oEmail.HTMLBody = "<IMG alt='' hspace=0 src='cid:MyCid' align=baseline border=0>&nbsp;</BODY>"

为什么图像在带有 .Display 而不是 .Send 的电子邮件中成功嵌入？

Why does an image embed successfully in an email with .Display but not .Send?

email

excel

outlook

vba

ms-office