Bug ? Shared, desktop private on first use

I use Shared, desktop private on first use folder" to stock some documents resulting from a search done in the Notes Client.

Here is my code :

Sub Click(Source As Button)

Set session = New NotesSession

Set ws = New NotesUIWorkspace

Set uidoc = ws.CurrentDocument

Set db = session.CurrentDatabase



Dim doc As NotesDocument

Set doc = uidoc.Document

Call doc.Save(True, True)

	

Query = uidoc.FieldGetText("FinalNotesSearchQuery")



Set collection= db.FTSearch("FIELD Form =maDocument" ,0)

collection.RemoveAllFromFolder("tmpSearch")

Call collection.FTSearch(Query, 0)	

collection.PutAllInFolder("tmpSearch")

lines “collection.RemoveAllFromFolder(“tmpSearch”)” and " collection.PutAllInFolder(“tmpSearch”)" stop the script and a pop up appears saying this : “Can’t move document to shared Private On first Use folder”

End Sub

I’ve found this : http://www-1.ibm.com/support/docview.wss?uid=sim2f36b48a8de01766885256cc200811077

But it’s related to a bug of Domino 4.xx and i have Domino 6.5.

Whats wrong with these folders ??

Subject: Dim collection

Are there actually any documents in the collection?

‘collection’ is undeclared. Does it make a difference if you declare it as a NotesDocumentCollection?

Subject: bug ? Shared, desktop private on first use

could be a regression bug but it also doesn’t say that it had ever been fixed. PutInFolder and PutAllInFolder methods do not work on SPOFU folders stored in the desktop. Check technote #155036 if you have not already.

Subject: RE: bug ? Shared, desktop private on first use

Exact, while searching a little more information, it appears to be a lotus notes limitation :confused:

Bad thing

Subject: RE: bug ? Shared, desktop private on first use

I know PutInFolder won’t work to put the first document into a folder, but I believe you can use formula to do it instead.