Outlook VBA .SendUsingAccount 当没有可用帐户时

Question

故事：在 Outlook 应用程序中，有一个 default/user 帐户以及其他收件箱、日历（我们称之为 2nd_Account）等，根据 Exchange Server 权限添加（可见）为文件夹。

我需要以编程方式创建新的约会项目并代表 2nd_Account 发送。问题是 Application.Session 中只有 1 个帐户（默认帐户）。

如果由用户手动完成，则从 2nd_Account olCalendar 文件夹创建的项目是 2nd_Account 的 SendOnBehalf，即使它不包含在帐户集合中。有什么想法吗？

谢谢

Answer 1

以下是我在 Outlook 中浏览已安装帐户的方式：

Set MAPISession = objOutlook.Application.Session     'Get the MAPI Outlook session
Dim WantedAccount as String ' Set to preferred account name

Set MAPIMailItem = objOutlook.CreateItem(olMailItem)  'Create a new mail message
With MAPIMailItem
  For Each Account In MAPISession.Accounts
    If Account = WantedAccount Then
      .SendUsingAccount = Account
      Exit For
    End If
  Next

Answer 2

在该帐户的日历文件夹中创建约会 - 使用 Store.GetDefaultFolder 而不是 Namespace.GetDefaultFolder。

Outlook VBA .SendUsingAccount 当没有可用帐户时

Outlook VBA .SendUsingAccount when no account is available

outlook

vba

outlook-2010