VBscript从outlook中检索数据

Question

我需要使用VBscript从outlook服务器中检索来自outlook的几个字段，例如Fullname，jobtitle。

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