Récupérer toutes les catégories d'une base

[oguruma]

Pour compléter : récupérer toutes les valeurs du champ Categories dans une base.... il y a mieux... je pense... mais c'est un début pour ceux qui souhaitent poursuivre l'aventure

Code : Tout sélectionner

Sub Initialize   
   Dim hSession As NotesSession
   Dim hDb As NotesDatabase
   Dim hDc As NotesDocumentCollection
   Dim hDoc As NotesDocument
   Dim hNDT As New NotesDateTime("")
   Dim sFormula As String
   Dim vCat As Variant
   Dim vCateg As Variant
   Dim vUnique As Variant
   On Error Goto HANDLE_ERROR
   Set hSession = New NotesSession
   Set hDb = hSession.CurrentDatabase
   sFormula={Categories!="" | !@IsNull( Categories )}
   Set hDc = hDb.Search( sFormula, hNDT, 0 )
   Set hDoc=hDc.GetFirstDocument
   Do While Not hDoc Is Nothing
      vCat=hDoc.GetItemValue("Categories")
      Forall cat In vCat
         If Not f_ArrayAddElement(vCateg,cat) Then
            Msgbox "Incident de traitement pendant l'ajout d'un élément",16,"Erreur"
            Exit Sub
         End If
      End Forall
      Set hDoc=hDc.GetNextDocument(hDoc)
   Loop
   vUnique=Arrayunique(vCateg)
   Forall e In vUnique
      Msgbox e      
   End Forall
FIN:
   Exit Sub
HANDLE_ERROR:
   Msgbox "Erreur n° " & Err & " : " & Error$ & " - Ligne " & Erl,16,"Erreur fonction " & Lsi_info(2)
   Resume FIN
End Sub