如何在 MS Access 中将邮件从一个链接的 Exchange 邮箱移动到另一个

Question

我有一个作为 MS Access 应用程序中的表链接的 Exchange 邮箱。 这主要用于阅读，但我也希望能够将邮件“移动”到另一个文件夹。

不幸的是，这并不像在第二个链接邮箱中写入那么简单，因为显然我无法编辑某些字段。 某些关键字段（例如“收件人：”字段）不可用，因为我收到以下错误

“字段‘收件人’基于表达式且无法编辑”。

使用CreateObject("Outlook.Application ") 这里不是一个选项，因为据我所知，这会在从 Access 调用时提供一个安全对话框。

有什么解决办法吗？*

Answer 1

这是两个问题吗？ 可以使用 Move 方法移动邮件。 以下是一个片段：

 Set oApp = CreateObject("Outlook.Application")

Set oNS = oApp.GetNamespace("MAPI")

Set oMailItems = oNS.GetDefaultFolder(olFolderInbox)
Set itm = oMailItems.Items(6)
itm.Move oNS.GetDefaultFolder(olFolderDeletedItems)

但是，即使使用 Outlook 兑换，收件人（收件人）也是只读的。

Answer 2

我认为 Access 不是适合这项工作的工具。 您将无法避免使用 Outlook.Application 对象或 MAPI 包装器（如 CDO）。 CDO 将是更优雅、更高效的方式，但它必须通过 Office 安装程序显式安装在客户端上。

如果您想避免脚本安全对话框（以及一般的一些 CDO 不功能），您应该提供 Outlook Redemption尝试一下。

Redemption 是 CDO 的直接替代品，当您之前进行任何 CDO/Outlook VBA 编码时，您会立即熟悉它。

Answer 3

要将电子邮件从一个链接的 Exchange 邮箱移动到 MS Access 中的另一个邮箱，请首先创建一个新表来存储电子邮件数据。 然后，使用 Outlook 对象模型从源邮箱检索电子邮件并将它们插入到新表中。 最后，再次使用 Outlook 对象模型将电子邮件发送到目标邮箱。

例如，如果您需要移动一系列电子邮件，其中包含有关如何执行pdf 幻灯片免费下载的信息，您可以从源邮箱中检索它们，将它们保存到新表中，然后将它们发送到目标邮箱以供进一步查看和共享。