2016-03-03 34 views

回答

0

文件夹没有固有地址,但Exchange邮箱存储。

你可以尝试要么

  1. 检索使用Store.PropertyAccessor.GetProperty(DASL名http://schemas.microsoft.com/mapi/proptag/0x661B0102)店里PR_MAILBOX_OWNER_ENTRYID属性,但它仅通过在线商店暴露,缓存店不公开它。

  2. 解析Exchange存储条目标识以提取商店所有者的DN,然后创建GAL用户条目标识。

  3. 你可以看一下配置文件数据,找到店老板条目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 
+0

当我尝试使用赎回时,我没有得到SmtpAddress - 我得到这个结果“存储信息归属于”? – MojoDK

+0

此外,它很慢..我有8个邮箱,循环你的样品上面需要5-6秒。 – MojoDK

+0

如果商店或GAL条目未被缓存,则赎回最终将通过MSEMS提供商进行网络呼叫。 –