显示对话框，允许用户在VBA中选择Outlook文件夹

我编写了一些Outlook VBA，它需要用户选择一个邮件文件夹（从邮箱中或外部PST中）

目前，他们必须直接在代码中编辑路径——这对远程用户来说既不友好也不高效

是否有人知道如何显示一个对话框，允许用户浏览所有可用文件夹和子文件夹并选择一个

如果仅限于邮件文件夹但不是必需的，则可获得额外积分。

尝试使用以下方法：

Sub FolderPick（）
Dim OBJN作为名称空间
Dim objFolder As folder
设置objNS=Application.GetNamespace（“MAPI”）
设置objFolder=objNS.PickFolder
如果TypeName（objFolder）“Nothing”，则
调试。打印vbCr和“objFolder:”&objFolder
其他的
调试。打印vbCr和“取消”
如果结束
设置objFolder=Nothing
Set objNS=Nothing
端接头

效果很好，非常感谢。但是值得注意的是，在Outlook 2003上，您需要将第二个

Dim

更改为

Dim objFolder As MAPIFolder

，否则会抛出“用户定义类型未定义”错误。Richard的评论也适用于Outlook 2007