vba - 使用 EntryID 引用时的 MailItem.SaveAs

Question

我正在开发将 Outlook 中的 MailItem(我知道它是 MailItem 而不是任何其他类型)拖放到 Access 备忘录字段中的功能。尝试对 MailItem 对象调用 SaveAs。

我明白了

Error 287 - Application-defined or object-defined error.

我尝试过使用命名空间、不使用命名空间、使用 .Item 等

这是我当前的代码:

Dim olApp As Outlook.Application
Set olApp = CreateObject("Outlook.Application")

Dim olNs As Outlook.NameSpace
Set olNs = olApp.GetNamespace("MAPI")

Dim olMail As Outlook.MailItem
Set olMail = olNs.GetItemFromID(olNs.Application.ActiveExplorer.Selection(1).EntryID)

olMail.SaveAs strPathAndFile, Outlook.OlSaveAsType.olMSG

Access 2010、Outlook 2010 均为 32 位。 Win 7机器是64位的。

在全 32 位机器上尝试过，同样的错误。

尝试了下面的 Dmitry 代码，同样的错误。

Answer 1

终于使用 Dmitry Streblechenko 的出色工具 Redemption 完成了这项工作。图书馆。谢谢!

Dim olApp As Outlook.Application
Set olApp = CreateObject("Outlook.Application")

Dim olNs As Outlook.NameSpace
Set olNs = olApp.GetNamespace("MAPI")

Dim oRDOSession As Redemption.RDOSession
Set oRDOSession = CreateObject("Redemption.RDOSession")
oRDOSession.MAPIOBJECT = olNs.Application.Session.MAPIOBJECT

If Not oRDOSession.LoggedOn Then oRDOSession.Logon

Dim oMsgItem As Redemption.RDOMail
Set oMsgItem = oRDOSession.GetMessageFromID(olNs.Application.ActiveExplorer.Selection(1).EntryID)

strPathAndFile = "some\path\" & UniqueValueStr(Now()) & ".msg"

oMsgItem.SaveAs strPathAndFile