Question

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

我想用它来帮助确定我正在操作的商店（例如，公共，主要或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的新手，所以可能有一种比我想做的更简单的方法。

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

Answer 1

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

我找到了 StoreObj.ExchangeStoreType

将返回一个与OlExchangeStoreType使用的匹配的整数。我将在课堂上重新创建枚举。

谢谢，

从Outlook外部访问OlExchangeStoreType

1 个答案: