set the initial folder in PickFolder

#1
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

#2
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