如何在Outlook 2010中将嵌入式图像添加到HTML消息中 [英] How to add an embedded image to an HTML message in Outlook 2010

问题描述

我有Office 2003 VBA代码，该代码使用此处描述的技术进行嵌入使用未记录的MAPI属性和CDO 1.21在HTML消息中生成图像.

I have Office 2003 VBA code that uses the technique described here to embed an image in an HTML message using undocumented MAPI properties and CDO 1.21.

不再支持CDO 1.21，但根据MSDN， ，它的大部分功能现在都已合并到Outlook 2010对象模型中.

CDO 1.21 is no longer supported, but according to MSDN, most of its functionality is now incorporated into the Outlook 2010 object model.

在哪里可以找到使用Outlook 2010对象模型将图像嵌入到Outlook 2010消息中的示例?

Where can I find a sample that embeds images in an Outlook 2010 message using the Outlook 2010 object model?

推荐答案

找到了答案这里.

关键在于:

Const PR_ATTACH_MIME_TAG = "http://schemas.microsoft.com/mapi/proptag/0x370E001E"        
Const PR_ATTACH_CONTENT_ID = "http://schemas.microsoft.com/mapi/proptag/0x3712001E"        
Const PR_ATTACHMENT_HIDDEN = "http://schemas.microsoft.com/mapi/proptag/0x7FFE000B" 

...

Set colAttach = l_Msg.Attachments        
For x = 1 To Items.Count            
    Set l_Attach = colAttach.Add(Items.Item(x))            
    Set oPA = l_Attach.PropertyAccessor            
    oPA.SetProperty PR_ATTACH_MIME_TAG, ItemTypes.Item(x)            
    oPA.SetProperty PR_ATTACH_CONTENT_ID, "item" & x            
    oPA.SetProperty PR_ATTACHMENT_HIDDEN, True        
Next

这篇关于如何在Outlook 2010中将嵌入式图像添加到HTML消息中的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！