やっと

調子が出てきた。 OutlookのVBA、基本的にはExcelと同じと云えば同じなのでどかすかコードを書いている。 フォルダを選択するダイアログを表示するコードを書いて実行したら、そんなオブジェクトはサポートされていないとかなんとか。 えっ？と思いネットを見ると、やっぱりOutlookではサポートされていないので、表示させるには一旦、ExcelかWoedのオブジェクトを生成して、そいつにファイルダイアログを表示させるらしい。 云われるがままやってみると、上手く表示することができた。 コードは、こんな感じ。

Private Sub CommandButtonFilePath_Click()
'
'   @brief      フォルダ選択ボタンがクリックされた
'   @param
'   @note
'   @date       Nov 20, 2019
'
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

    Dim appWord     As Object       ' Word.Application
    Dim dlgFile     As FileDialog
    Dim wshShell    As Object       ' WScript.Shell

    Set appWord = CreateObject("Word.Application")
    Set dlgFile = appWord.FileDialog(Office.msoFileDialogFolderPicker)
    Set wshShell = CreateObject("WScript.Shell")

    With dlgFile
        ' 初期設定
        .InitialFileName = Me.TextBoxFilePath.Value    ' 表示するフォルダを指定
        .AllowMultiSelect = False                      ' 複数選択させない
        .Title = "ファイル保存パス選択"
        .InitialView = msoFileDialogViewDetails        ' 表示するアイコンの大きさを指定

        If .Show = True Then
            ' 有効なボタンがクリックされた
            ' 選択されたファイルを保存
            Me.TextBoxFilePath.Value = .SelectedItems(1)
        End If
    End With
End Sub

--