使用vba获取outlook组织团队层次结构

Question

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

电子邮件地址，小组层次结构

aaa@email.com，第1组\第2组\第3组\第4组

bbb@email.com，第1组\第5组\第6组\第7组

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

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

感谢有人可以提供帮助！

干杯！

Answer 1

使用ExchangeUser.GetDirectReports和GetExchangeUserManager方法。

可以从AddressEntry.GetExchangeUser中检索ExchangeUser。