vb.网络互操作.Outlook -从原始MIME源打开邮件

我正在生成一个电子邮件源，在我的源中如下所示:

MIME-Version: 1.0
Content-Type: multipart/related; boundary="related_boundary"
--related_boundary
Content-Type: text/html; charset="utf-8"
Content-Transfer-Encoding: 8bit
<!DOCTYPE html>
<html>
    <head>
        <meta charset="utf-8">
    </head>
    <body>
        <p>test</p>
        <p class="sig"><img src="cid:0"></p>
    </body>
</html>
--related_boundary
Content-Type: image/png
Content-Transfer-Encoding: base64
Content-ID: <0>
....

现在，我想用Office在Outlook中打开这些邮件。互操作但是将邮件正文设置为已命名的内容，将只会在outlook

中显示完整的源。

如果要导入完整的MIME消息，可以使用

1 - IConverterSession内置MIME转换器(Outlook 2003及更高版本)。因为它是扩展的MAPI，所以只能从c++或Delphi访问。

2 -您可以在代码中显式解析MIME消息(我过去使用Lumisoft MIME解析器)，然后一次设置各种属性。

3 -使用Redemption(我是它的作者)及其SafeMailItem/RDOMail。导入方法。导入新消息就像

一样简单

set Session = CreateObject("Redemption.RDOSession")
Session.MAPIOBJECT = Application.Session.MAPIOBJECT
set Msg = Session.GetDefaultFolder(olFolderInbox).Items.Add("IPM.Note")
Msg.Sent = true
Msg.Import "C:test.eml", 1024
Msg.Save

相关内容

最新更新

热门标签：