Получить имена сотрудников, которые имеют общий менеджер в Outlook - PullRequest
0 голосов
/ 09 октября 2018

Я хотел бы получить имена (или, предпочтительно, адреса электронной почты) людей, которые имеют тот же менеджер, что и я, в Outlook (так, в основном, моих товарищей по команде), а также электронную почту моего менеджера.Я знаю, как получить почту моего менеджера, но я борюсь с первой частью.Есть ли возможность этого добиться?В Outlook я могу зайти в Contact Card - Организация - Shares Same Manager, поэтому я думаю, что это должно быть возможно сделать из VBA.

Option Explicit
Sub test()
Dim mail As Object
Set mail = Application.Session.CurrentUser.AddressEntry

Dim mgrMail As String
mgrMail = mail.GetExchangeUser.Manager 'Works fine

Dim teamMails() As String
teamMails = ???? 'Is there a possibilty to get it somehow?
End Sub

1 Ответ

0 голосов
/ 09 октября 2018

Используйте ExchangeUser.GetDirectReports (mail.GetExchangeUser.Manager.GetDirectReports в вашем случае).

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...