Outlook Application.FileDialog not found

outlook, vba

Solution

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

Problem

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?

Original source