文件夹没有固有地址,但Exchange邮箱存储。
你可以尝试要么
检索使用Store.PropertyAccessor.GetProperty
(DASL名http://schemas.microsoft.com/mapi/proptag/0x661B0102
)店里PR_MAILBOX_OWNER_ENTRYID
属性,但它仅通过在线商店暴露,缓存店不公开它。
解析Exchange存储条目标识以提取商店所有者的DN,然后创建GAL用户条目标识。
你可以看一下配置文件数据,找到店老板条目ID。
如果使用Redemption是一个选项,它暴露了RDOExchangeMailboxStore .Owner属性:
skPrimaryExchangeMailbox = 3
skDelegateExchangeMailbox = 4
set Session = CreateObject("Redemption.RDOSession")
Session.MAPIOBJECT = Application.Session.MAPIOBJECT
for each Store in Session.Stores
If (Store.StoreKind = skPrimaryExchangeMailbox) or (Store.StoreKind = skDelegateExchangeMailbox) Then
MsgBox "Store " & Store.Name & " is owned by " & Store.Owner.SmtpAddress
End If
next
如果你想只是一些特定文件夹中的母店,尝试下面的脚本(它显示了主人Outlook当前显示的文件夹)
skPrimaryExchangeMailbox = 3
skDelegateExchangeMailbox = 4
set Session = CreateObject("Redemption.RDOSession")
Session.MAPIOBJECT = Application.Session.MAPIOBJECT
set Store = Session.GetStoreFromID(Application.ActiveExplorer.CurrentFolder.StoreID)
if (Store.StoreKind = skPrimaryExchangeMailbox) or (Store.StoreKind = skDelegateExchangeMailbox) Then
MsgBox "Store " & Store.Name & " is owned by " & Store.Owner.SmtpAddress
End If
当我尝试使用赎回时,我没有得到SmtpAddress - 我得到这个结果“存储信息归属于”? – MojoDK
此外,它很慢..我有8个邮箱,循环你的样品上面需要5-6秒。 – MojoDK
如果商店或GAL条目未被缓存,则赎回最终将通过MSEMS提供商进行网络呼叫。 –