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

Question

故事： 在Outlook App中，有一个默认帐户/用户帐户，还基于Exchange Server权限将其他收件箱，日历（称为2nd_Account）等添加（可见）为文件夹。

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

如果由用户手动完成，则从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

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