SearchWorkSpacesCMD / AddShortcutsCmd

bfelknor

I want to present the SearchWorkSpacesCmd to the user first, and then populate the addShortcutsCmd with the WorkSpaces Search result.

This "works," however, when a workspace is ultimately selected, the following error is returned:

Unable to add shortcus [SubscriptionSubfolders][AddNewPageShortcut] An unrecognized exception has occurred.

I suspect I'm just missing a context items variable. Any suggestions ?

//SNIP

mContext.Add "IManDMS", wsDMS
mContext.Add "SelectedNRTSessions", tSessions

Set swCmd = New IMANEXT2Lib.WorkspaceSearchCmd

With swCmd
.Initialize mContext
.Execute
End With

If mContext("SearchedFolders") Is Nothing Then
Debug.Print "Nothing"
Else
Debug.Print "Something"
Dim tWSCuts As IManFolderShortcuts, MyFolders As IManFolders
Dim myFolder As IManFolder, DestFolder As IManFolder


Dim asctCmd As IMANEXT2Lib.AddShortcutsCmd
Set asctCmd = New IMANEXT2Lib.AddShortcutsCmd
Set aContext = New IMANEXTLib.ContextItems
Set DestFolder = DestSubscriptionFolder

Set MyFolders = mContext("SearchedFolders")

If MyFolders.Count = 1 Then
Set myFolder = MyFolders.ItemByIndex(1)
aContext.Add "SelectedFolderObject", myFolder

Else
ReDim ManyObjs(MyFolders.Count - 1) As IManObject
Dim u As Integer
For u = 1 To MyFolders.Count
Set ManyObjs(u - 1) = MyFolders.ItemByIndex(u)
Next u
aContext.Add "SelectedIManObjects", ManyObjs

End If


aContext.Add "IManDMS", wsDMS
aContext.Add "SelectedNRTSessions", tSessions
aContext.Add "DestinationObject", DestFolder

asctCmd.Initialize aContext
asctCmd.Execute

//Error Here

Thanks.

Bruce