Outlook VBA .SendUsingAccount, когда нет доступной учетной записи

Question

История: В приложении Outlook есть одна учетная запись по умолчанию / учетная запись пользователя, а также дополнительная папка «Входящие», календарь (назовем его 2nd_Account) и т. Д., Добавленные (видимые) в качестве папок на основании разрешения Exchange Server.

Мне нужно программно создать новый элемент встречи и отправить его от имени 2nd_Account. Проблема в том, что в Application.Session есть только 1 учетная запись (по умолчанию).

Если это сделано вручную пользователем, то элемент, созданный из папки 2nd_Account olCalendar, будет SendOnBehalf из 2nd_Account, даже если он не включен в коллекцию учетных записей. Есть идеи, пожалуйста?

Спасибо

Answer 1

Создайте встречу в папке «Календарь» этой учетной записи - используйте Store.GetDefaultFolder вместо Namespace.GetDefaultFolder.

Answer 2

Вот как я просматриваю установленные учетные записи в 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