vba - ユーザーが 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