用于从outlook检索数据的VBscript

我需要使用VBscript从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

检索标题字段的方式不同。 请告诉我要使用什么属性从outlook检索经理姓名、职务和位置详细信息等字段

---

注意：我正在使用outlook 2010。

以上代码根本不使用outlook。
你的代码在哪里运行？它是COM插件还是独立应用程序
您看过Outlook对象模型中的Application.Session.CurrentUser了吗？

---

您可以使用Recipient.AddressEntry.GetExchangeUser检索ExchangeUserObject，也可以使用AddressEntry.PropertyAccessor检索原始MAPI属性-查看中的可用属性（及其DASL名称）（单击IMAPISession按钮，然后单击QueryIdentity）。

这是独立脚本。当我执行enire脚本时，我会在一个单独的文本文件中获取用户名。（用户ID从文本文件馈送到脚本）这是关于如何传递数据的脚本的其余部分。Set objFSO=CreateObject（“Scripting.FileSystemObject”）'打开文本文件-strData现在包含整个文件strData=objFSO.OpenTextFile（strTextFile，ForReading）。ReadAll Set objTextFile=objFSO.OpenTextFile（strWriteFile，forwrite，True）'将文本文件拆分为行arrLines=Split（strData，vbCrLf）'逐步浏览arrLines sUser=strlines中每个strLine的行您可以使用Outlook对象模型解析名称并获取其详细信息-调用Application.Session.CreateRecipient（）（返回收件人对象），调用Recipient.resolve，读取Recipient.AddressEntry属性以获取AddressEntry对象，使用AddressEntry.Fields读取原始MAPI属性，或使用AddressEntry.GetExchangeUser获取公开JobTitle属性的ExchangeUser对象。

objTextFile.WriteLine (oUser.JobTitle)