vba - Outlook Application.FileDialog not found

Question

I'm writing a VBA macro for Outlook and the Application.FileDialog method is not available.

The intent is for the user to select a folder - not an Outlook email folder, but a file system directory folder.

Here are the references I have enabled:

• Visual Basic for Applications Microsoft Outlook 15.0 Object Library
• Microsoft Office 15.0 Object Library OLE Automation Microsoft Forms
• Microsoft Office 15.0 Object Library
• OLE Automation Microsoft Forms Object Library
• Microsoft Scripting Run-time
• Microsoft Office 15.0 Access database engine Object Library

Any ideas?

Answer 1

Outlook doesn't support the FileDialog object. Here's a workaround:

Dim xlApp As Object
Set xlApp = CreateObject("Excel.Application")
    xlApp.Visible = False

Dim fd As Office.FileDialog
Set fd = xlApp.Application.FileDialog(msoFileDialogFilePicker)

Dim selectedItem As Variant

If fd.Show = -1 Then
    For Each selectedItem In fd.SelectedItems
        Debug.Print selectedItem
    Next
End If

Set fd = Nothing
    xlApp.Quit
Set xlApp = Nothing