我编写了一些 Outlook VBA,它需要用户选择一个邮件文件夹(从他们的邮箱内或从外部 PST 内)。
目前,他们必须直接在代码中编辑路径 - 这不是远程用户友好或高效的。
有谁知道如何让一个对话框出现,允许用户浏览所有可用的文件夹和子文件夹并选择一个?
如果它可以仅限于邮件文件夹,则奖励积分,但这不是必需的。
最佳答案
尝试使用 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
关于vba - 显示对话框以允许用户在 VBA 中选择 Outlook 文件夹,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/12688476/