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

我有一个Excel工作表中的工作人员电子邮件列表，我试图使用VBA检索用户的组织团队层次结构。 我后面的输出如下所示：

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

[e-mail]，团队1 \团队2 \团队3 \团队4

[e-mail]，Team 1 \ Team 5 \ Team 6 \ Team 7

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

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

欣赏，如果有人可以帮助！

干杯!

Answer 1

使用ExchangeUser.GetDirectReports和GetExchangeUserManager方法。

ExchangeUser可以从AddressEntry.GetExchangeUser中检索。