使用VBA获取Outlook组织团队层次结构

Question

我在Excel工作表中有一份员工电子邮件列表，我正在尝试使用VBA检索用户的组织团队层次结构。 我追求的输出如下所示：

电子邮件地址，团队层次结构

aaa@email.com，团队1 \\团队2 \\团队3 \\团队4

bbb@email.com，团队1 \\团队5 \\团队6 \\团队7

我已经看到团队层次结构信息很容易在Outlook中显示（右键单击联系人->属性->常规选项卡->组织字段）。 因此，我认为应该有一种方法可以使用VBA将这些信息检索到电子表格中，但是找不到解决方法。

我进行了一些研究，发现使用LDAP可以直接从Active Directory中获取基本信息，例如名字，姓氏，组织单位（团队）等，但是找不到找到将团队分层的方法视图。

感谢有人可以帮忙！

干杯!

Answer 1

使用ExchangeUser.GetDirectReports和GetExchangeUserManager方法。

可以从AddressEntry.GetExchangeUser检索ExchangeUser。