VBscript 从 Outlook 检索当前用户数据

Question

我需要使用 VBscript 从 Outlook 服务器中检索一些字段，例如全名、职务。

Set oNetwork = CreateObject("WScript.Network")
sDomain = oNetwork.UserDomain
sADSPath= sDomain & "/" & sUser
Set oUser = GetObject("WinNT://" & sADSPath & ",user")
if err.number <> 0 then
objTextFile.WriteLine (sUser)
else
objTextFile.WriteLine (oUser.FullName)
End If

如果 id 在 sUser 中给出，上面的脚本可以获取全名。但是这条线

objTextFile.WriteLine (oUser.JobTitle)

以与检索标题字段相同的方式工作。请让我知道使用什么属性来检索字段，例如经理姓名和职务以及从 Outlook 中的位置详细信息。

注意：我使用的是Outlook 2010。

Answer 1

上面的代码根本不使用Outlook。
您的代码在哪里运行？它是 COM 插件还是独立应用程序？
看看 Outlook 对象模型中的Application.Session.CurrentUser吗？
您可以使用Recipient.AddressEntry.GetExchangeUser检索ExchangeUserObject或使用AddressEntry.PropertyAccessor检索原始 MAPI 属性 - 查看 OutlookSpy 中的可用属性（及其 DASL 名称）（我是它的作者 - 单击 IMAPISession 按钮，然后单击 QueryIdentity）。