通过Excel VBA查找不同用户的Exchange管理器

5us2dqdw 于 2023-03-20 发布在其他

关注(0)|答案(1)|浏览(125)

大家好，你们这些才华横溢的Excel/VBAMaven。我可以大胆地使用你们的帮助。有人知道如何在VBA中使用别名查找Exchange用户的管理器吗？我能够找到一点VBA代码，将拉我的管理器，但它只对我有效。我需要放入一个用户别名（就像那里的LDAP），并查找那里的经理，这样我就可以向那里的经理发送电子邮件。
任何帮助都不胜感激。
这是我能够找到的代码，但只拉我的经理：
Excel VBA代码：

Sub GetManager()

   MsgBox CreateObject("Outlook.Application").GetNamespace("MAPI").CurrentUser.AddressEntry.GetExchangeUser.Manager
                    

End Sub

excel

来源：https://stackoverflow.com/questions/75757356/find-exchange-manager-of-different-user-through-excel-vba

1条答案

按热度按时间

7qhs6swi1#

NameSpace.CreateRecipient方法创建Recipient对象。此方法用于根据地址簿验证给定名称。调用Recipient.Resolve方法，尝试根据地址簿解析Recipient对象。例如，您可以尝试使用以下代码：

Dim myDelegate as Outlook.Recipient
Set myDelegate = OutlookApplication.GetNamespace("MAPI").CreateRecipient("Eugene Astafiev") ' try to use your alias here
 myDelegate.Resolve 
 If myDelegate.Resolved Then 
  MsgBox myDelegate.AddressEntry.GetExchangeUser.Manager
 End If

您可能会发现ExchangeUser.Alias属性，该属性返回表示ExchangeUser别名的字符串。

赞(0）回复(0）举报 2023-03-20

我来回答

通过Excel VBA查找不同用户的Exchange管理器

1条答案

相关问题

热门标签

最新问答