在Outlook中打开文件对话框（VBA）错误438

Question

我正在尝试通过VBA在Outlook中打开文件对话框。 （Outlook 2010）

使用以下代码我得到一个错误：

运行时错误438.对象不支持此属性或方法

Private Sub btn_openPST_Click()
    Dim oFileDialog As FileDialog
    Set oFileDialog = myAppl.FileDialog(msoFileDialogFilePicker)
    With oFileDialog
        .Title = "Select your PST File"
        .ButtonName = "Ok"
        .Show
    End With
End Sub

myAppl是一个Outlook.Application对象：

Dim myAppl As Outlook.Application
Set myAppl = CreateObject("Outlook.Application")

Answer 1

我不认为Outlook可以打开文件选择器。我解决方法是打开Excel工作表，然后打开文件选择器，然后关闭Excel工作表。请尝试以下代码，并确保将“Microsoft Excel 14.0对象库”参考导入Outlook。

Private Sub openFDinOutlook()

    Dim xlObj As Excel.Application
    Dim fd As Office.FileDialog

    Set xlObj = New Excel.Application
    xlObj.Visible = False
    Set fd = xlObj.Application.FileDialog(msoFileDialogFolderPicker)
    With fd
        .Title = "Select your PST File"
        .ButtonName = "Ok"
        .Show
    End With
    xlObj.Quit
    Set xlObj = Nothing


End Sub