32位VB6应用程序需要自动64位Outlook发送电子邮件而不提示用户

Question

我有一个 32 位旧版 VB6 应用程序，它使用 COM 组件自动 Outlook 发送电子邮件。要求是电子邮件需要出现在 Outlook 的“已发送邮件”文件夹中。更糟糕的是，应用程序不允许弹出通常的安全、警告或确认消息。

在 64 位 Office 出现之前，该应用程序运行没有任何问题。 32 位进程无法自动执行 64 位 Outlook。

我的想法如下：

1. 用一个组件替换 COM 组件 在 CCW 中运行的 .NET WCF 客户端 （.NET 假装是 COM）

2. 此 COM 组件调用 WCF 使用 netTcpBinding 作为 64 位进程运行的服务。

3. WCF 服务（作为本地系统运行）然后启动 64 位 作为用户的控制台应用程序，以及 使用扩展 MAPI 库来发送电子邮件。

第三步的原因有两个：

1. 如果满足以下条件，MAPI 将要求确认： 你告诉它发送电子邮件。 扩展 MAPI 则不然。这意味着 我们必须编译一个 C++ 扩展 具有正确 64 位的 MAPI 库 来自 Microsoft 的头文件，并“调用” 来自我们的 .NET 代码。

2. 在 WCF 中冒充（宽松使用的术语）用户 导致注册表不正确 蜂巢加载。换句话说，当 扩展 MAPI 尝试加载 来自 HKCU 的配置文件失败。这 意味着我们必须启动一个新流程，以本质上“RunAs”正确的用户。

这一切实际上都在实践中起作用，但我需要对以下内容进行一些解释：

如果我使用命令行参数中所需的所有信息运行控制台应用程序，则 MAPI 将无法登录。但是，如果我使用 1 个表单将相同的代码编译为 Windows 应用程序，并在表单的 OnLoad() 方法中使用完全相同的代码，那么它就会成功。谁能解释为什么？

要以当前登录用户（不是本地系统）身份从 WCF 服务运行“WinForms”应用程序，我执行了以下操作来获取正确的令牌：

sessionID = (int)WTSGetActiveConsoleSessionId();
ret = WTSQueryUserToken(sessionID, out currentToken);

有没有办法解决这个问题？当然，使用 WCF 的内置模拟会更好。

Answer 1

<块引用>

32 位进程无法自动化 64 位 Outlook

不完全正确，如果您可以在进程外创建 COM 对象，那么它就可以工作。选项包括创建一个小的 .exe，作为 COM 对象的工厂。

请参阅 这篇文章