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

不幸的是，这并不像在第二个链接邮箱中编写那样简单，因为显然我无法编辑某些字段。由于出现以下错误，某些关键字段(如收件人：)不可用

"字段" To"基于表达式，无法编辑"。

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

有解决方案吗？*

解决方案

这是两个问题吗？可以使用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只读的。

我认为Access不是适合该工作的工具。我们将无法使用Outlook.Application对象或者CDO之类的MAPI包装器。 CDO将是一种更优雅，更高效的方法，但是必须通过Office安装程序将它明确安装在客户端上。

如果要避免脚本安全对话框(以及一般而言某些CDO功能无法使用)，则应尝试使用Outlook Redemption。

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