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

Question

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

不幸的是，这并不像在第二个链接邮箱中写一样简单，因为显然我无法编辑某些字段。 To：字段等一些关键字段不可用，因为我收到以下错误

“字段'到'基于表达式，无法编辑”。

在这里使用 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 Redemtion。

Answer 2

我认为Access不是正确的工具。您不会使用Outlook.Application对象或CDO等MAPI包装器。 CDO将是更优雅和高性能的方式，但必须通过Office安装程序明确地安装在客户端上。

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

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