顯示對話框以允許用戶選擇VBA中的Outlook文件夾

Question

我已經編寫了一些需要用戶選擇郵件文件夾（無論是從郵箱內還是從外部PST中）的Outlook VBA。

目前，他們必須直接在代碼中編輯路徑 - 這不是遠程用戶友好或高效的。

有誰知道如何讓對話框出現，允許用戶瀏覽所有可用的文件夾和子文件夾，並選擇一個？

獎勵積分，如果它只能限於郵件文件夾，但它不是必需的。

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