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 ??