set the initial folder in PickFolder

S

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
 
D

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)
 

Similar threads

Top