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

Question

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

目前，他们必须直接在代码中编辑路径 - 这在远程用户友好或高效方面并不重要。

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

如果它可以仅限于邮件文件夹，则奖励积分，但这不是必需的。

Answer 1

尝试使用 Pickfolder 方法：

Sub FolderPick()
    Dim objNS As NameSpace
    Dim objFolder As folder
    Set objNS = Application.GetNamespace("MAPI")
    Set objFolder = objNS.PickFolder
    If TypeName(objFolder) <> "Nothing" Then
        Debug.Print vbCr & " objFolder: " & objFolder
    Else
        Debug.Print vbCr & "Cancel"
    End If
    Set objFolder = Nothing
    Set objNS = Nothing
End Sub