如何识别或列出Outlook VBA中的共享邮箱

Question

有人能想到在Outlook中识别分配的共享邮箱的方法吗？

我试图为多个人创建一个宏来解析Outlook中的文件夹。

但是这些人中有很多人通过交换分配了他们的个人资料帐户，我想在解析时跳过这些文件夹。

我当然找到了GetSharedDefaultFolder，但要求名称定位到特定邮箱。

我需要能够查看标识为共享的属性或其他内容，或者至少是我自己的邮箱？

由于

中号

Answer 1

使用PR_MDB_PROVIDER读取http://schemas.microsoft.com/mapi/proptag/0x34140102 MAPI属性（DASL名称Store.PropertyAccessor.GetProperty）（您将获得一个字节数组）。对于代理邮箱，它将是pbExchangeProviderDelegateGuid（9EB4770074E411CE8C5E00AA004254E2）。

使用OutlookSpy查看商店（点击IMsgStore按钮）。

您还可以查看Store.ExchangeStoreType属性 - 它将是4（OlExchangeStoreType.olAdditionalExchangeMailbox）。

关于PR_MDB_PROVIDER的好处是它被商店中的所有对象（MailItem，MAPIFolder，Store等）公开。