Vba 从Outlook外部访问OlExchangeStoreType

我目前正在开发一个小应用程序，它允许我对用户的个人资料进行一些更改，即添加或删除特定的PST文件，并将联系人/日历从附加的PST文件传输到其主邮箱。这是Outlook 2007的。经过一些搜索，我在Outlook中找到了一个枚举，如果可能的话，我想使用它：OlExchangeStoreType

我想用它来帮助确定我正在操作的存储（例如，public、primary或PST文件）。我只是不知道我怎么才能到达它。我在代码中使用后期绑定来解决在不同版本之间移动时可能出现的问题。当前绑定：

Dim olApp,olNS
On Error Resume Next
    olApp = GetObject(, "Outlook.Application")
    On Error GoTo 0

    If olApp Is Nothing Then
        olApp = CreateObject("Outlook.Application")
        olNS = olApp.GetNamespace("MAPI")
    Else
        olNS = olApp.GetNamespace("MAPI")
    End If

这个很好用。如果我尝试使用GetObject（，“Outlook”），则会得到“无法创建ActiveX组件”

我是否可以使用Outlook的界面访问公共枚举

至于我为什么这样做，我不想处理宏安全问题，也不想将宏推给多个用户。我还不熟悉使用VBA，所以可能有一种比我现在尝试的更简单的方法

---

让我知道你的想法。谢谢，

想明白了。我最初的印象是枚举值是类的对象，但它们只是整数

我发现 StoreObj.ExchangeStoreType

将返回与OlExchangeStoreType使用的内容匹配的整数。我将在类中重新创建枚举

谢谢