Outlook VBA - FileDialog

[Reflector]

In Outlook probeer ik FileDialog te openen om zodoende een directory te kunnen selecteren maar dat werkt allemaal niet.

Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFolderPicker)

Het gaat al fout bij de 2e zin. 'Application' kent geen object 'FileDialog'.
Alle referenties naar Office 12.0 Object Library en Outlook 12.0 Object Library staan aangevinkt.
In Excel en Word werkt dit wel.

 

[Warme bakkertje]

Sub tst()
With CreateObject("Shell.Application").BrowseForFolder(0, "Please Select a Save Folder:", 1)
 .......
End With
End Sub

 

[Reflector]

werkt perfect!

Harstikke mooi!
Werkt perfect... en dat terwijl ik een wel een paar aan het stoeien ben geweest FileDialog!

Bedankt!

 

[Warme bakkertje]

Markeer je de vraag dan nog even als opgelost.