显示对话框以允许用户在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