通过 MS Access VBA / Outlook 发送电子邮件，选择发送配置文件

我正在查看另一个问题中的代码片段（MS Access VBA）：https://stackoverflow.com/a/17975507/1085885 https://stackoverflow.com/a/17975507/1085885

目前，此代码仅当我在 Outlook 打开时运行它时才有效。有没有办法让这段代码“打开 Outlook”，然后运行所有发送代码？

其次，如何选择从哪个 Outlook 配置文件发送？我可以访问几个不同的配置文件，它是从我的主顶部收件箱发送的，但我希望它来自我的第二个收件箱。

您需要登录到指定的配置文件（如“控制面板|邮件|显示配置文件”中所示，如果这就是您所说的“配置文件”的意思）。创建 Outlook 应用程序实例后

Set oApp = CreateObject("Outlook.application")

添加如下内容：

set oNS = oApp.GetNamespace.Logon
oNS.Logon("MyProfileName")

请注意，如果 Outlook 已在运行，Logon不会做任何事。您将需要使用扩展 MAPI（C++ 或 Delphi 或 MAPI 包装器，例如赎回 http://www.dimastr.com/redemption/home.htm（我是它的作者，使用RDO会话 http://www.dimastr.com/redemption/rdosession.htm.Logon）登录到指定的配置文件。

如果“配置文件”实际上是指 Outlook 中同一配置文件中的不同帐户，您可以设置MailItem.SendUsingAccount属性来指定特定帐户。

如果您从 Exchange 邮箱发送，并且需要设置不同的发件人，请设置MailItem.SentOnBehalfOfName属性为您代表其发送的用户的名称（假设您有权代表该用户发送）。