vbscript - 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

如果 sUser 中给出了 id，则上述脚本可用于获取全名。但是线

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）。