set the initial folder in PickFolder

[sd]

hello
I'm using redemption to display "Select Folder" dialog as I need to
set the initial folder to exchange folder "\\Public Folders\All Public
Folders\Demo".I'm using below code

Dim Session As Object = CreateObject("Redemption.RDOSession")
Session.MAPIOBJECT = Globals.ThisAddIn.Application.Session.MAPIOBJECT

Dim RootFolder As Redemption.RDOFolder = Session.GetDefaultFolder(18)
Dim Folder As Object =
Session.pickfolder(SelectedFolder:=RootFolder.Folders("Demo"))

This code works, sets the initial folder to "Demo" however below
doesn't work (sets initial folder to "Inbox" )-

1.Session.pickfolder(SelectedFolder:=Session.GetDefaultFolder(18).Folders("Demo"))
2.Session.pickfolder(SelectedFolder:=Session.Getfolderfrompath("\
\Public Folders\All Public Folders\Demo"))
3.Dim RootFolder As Object = Session.GetDefaultFolder(18)
Dim Folder As Object =
Session.pickfolder(SelectedFolder:=RootFolder.Folders("Demo"))

GetDefaultFolder,Getfolderfrompath,GetFolderFromID all return
RDOFolder still doesn't seem to work with Session.pickfolder.Why so?
does this means that I 've to use early binding while declaring
RootFolder.

Thanks

 

[Dmitry Streblechenko]

So it does no work if you name the parameter? Since SelectedFolder is the
first parameter, why not simply omit the parameter name?

--
Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool
-