获取在Outlook中共享同一经理的员工的姓名

Question

我想获得在Outlook中与我共享同一经理的人（最好是我的队友）的姓名（最好是电子邮件地址），以及我经理的电子邮件。我知道如何收到经理的邮件，但是我在第一部分中很挣扎。 是否有可能实现这一目标？在Outlook中，我可以进入“联系人卡片”-“组织”-“共享相同管理器”，因此我想应该可以从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

Answer 1

使用ExchangeUser.GetDirectReports（在您的情况下为mail.GetExchangeUser.Manager.GetDirectReports）。