DominoArea.org [Archive]

Activer la propriété FolderReferencesEnabled de NotesDatabase, cette propriété a pour effet de stocker dans chaque document un champ FolderReferences qui contient la liste des folders ou le document est présent...

Il faut que cette propriété soit activer avant de placer des documents dans des folders mais si tel n'est pas votre cas vous devez lancer un agent qui va rafraichir ce champ dans tous les documents de tous les folders de votre base.

Voici un fonction qui vous permet de scanner tous les folders d'une base Notes (passée en paramètre) et de rafraichir ce champ pour tous les documents.

Code : Tout sélectionner

'refresh the folderreference property in a database
Function refreshfolderref(dbsrc As NotesDatabase)
   Dim views As Variant
   Dim docs As NotesViewEntryCollection
   'enable folder reference
   If Not( dbsrc.FolderReferencesEnabled ) Then
   dbsrc.FolderReferencesEnabled = True
   'while on all folder in dbsrc
   views = dbsrc.Views
   Forall v In views
      If v.Isfolder Then
         Set docs = v.Allentries
         Call docs.PutAllInFolder(v.Name)
      End If
   End Forall
   End If
End Function


Cordialement