使用兑换发送的 Outlook 2013 发件箱中的邮件卡住

Question

目前我正在将应用程序迁移到新版本，我在应用程序中遇到了问题。 基本上它是一个 VBA Access 应用程序，它将向用户发送报告。 对于邮件传递部分，它使用 Redemption.dll

当前版本：

• 视窗 XP
• 微软办公室 2003
• Redemption.dll v 4.5.0.812

迁移到

• 视窗 7

• 微软办公室 2013

• Redemption.dll v 4.5.0.812

场景 1：在 Win 7 机器上使用redemption.dll v 4.5.0.812运行应用程序时，报告传递功能运行没有错误。 但我注意到邮件卡在发件箱中。 当我打开 Outlook 2013 时，邮件会被发送。 因此，当我保持 Outlook 打开并运行该功能时，邮件会被发送。

场景 2：现在在 Win 7 机器上使用开发者版本redemption.dll v 5.14邮件也卡在发件箱中。

可能是什么原因，是否需要更改代码或是否与 Outlook 2013 相关的某些设置更改？ 任何类型的帮助都会非常有用......非常需要它:-) 如果需要更改代码，是否可以保留 redemption.dll 版本 v 4.5（根据要求）

如果您需要更多信息，请告诉我。

谢谢

Answer 1

来自http://www.dimastr.com/redemption/faq.htm#1

当我使用 Redemption 发送消息时，它只会留在草稿文件夹中

消息提交是扩展 MAPI 中的两步过程：

1. 调用 IMessage::Submit()

2. 刷新传出消息队列。

如果您使用的是 Exchange Server，则不需要步骤 #2，因为 Exchange 邮件存储与 Exchange 传输提供程序紧密绑定。 但是，如果您使用 POP3/SMTP 传输和 PST 文件作为邮件存储，则需要执行第 2 步。 要刷新消息队列，请创建 Redemption.MAPIUtils 对象的实例并在调用 SafeMailItem.Send 后调用其 DeliverNow 方法（类似于 CDO 中的 Session.DeliverNow）：

MailItem.Send
Set Utils = CreateObject("Redemption.MAPIUtils")
Utils.DeliverNow

但是，如果您使用带有 PST 文件和 POP3/SMTP 传输提供程序的 Outlook 2002 或更新版本，或安装在 Internet Only 模式下的 Outlook 2000，则存在一个问题：无法使用扩展 MAPI 刷新队列。 Outlook 的那部分完全损坏了。 但是请注意，带有 Exchange Server 或 Outlook 2000 C/W 的 Outlook 2002/2003（在线）在任何配置中都可以。

如果您在缓存模式下将 Outlook 2003 或更高版本与 Exchange 一起使用，则会出现相同的问题。 在 Exchange Server 属性中取消选中“使用缓存模式”以强制在线模式 - 这将确保立即传递邮件。

作为最后的手段，您可以在发送消息后模拟单击 Outlook 中的“发送/接收”按钮：

MailItem.Send
Set Btn = Application.ActiveExplorer.CommandBars.FindControl(1, 5488) 
Btn.Execute

请注意，在 Outlook 2003 中，该按钮现在是一个下拉菜单，真正的发送/接收是该按钮的一个子项：

Set Btn = Application.ActiveExplorer.CommandBars.FindControl(1, 7095)
Btn.Execute

请注意，上面的代码假设有一个活动的资源管理器； 如果您以编程方式启动 Outlook（并且它以前不是由用户启动）并且不显示任何文件夹，则情况并非如此。 在这种情况下，您可以使用 Namespace.SyncObjects 集合开始同步。：

 set NS = Application.GetNamespace("MAPI")
 NS.Logon
 Set Sync = NS.SyncObjects.Item(1)
 Sync.Start

在 Outlook 2010 中，您还可以使用Namespace.SendAndReceive方法。