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