Liste des auteurs d'un document

[Michael DELIQUE]

Code : Tout sélectionner

Function Author_LS(wDoc As NotesDocument) As Variant
   
   'Cette Fonction renvois laliste de toutes les personnes et rôles enregistrées comme auteur du document
   
   'déclaration Variable
   Dim lstValue_STD List As String
   Dim lstValue2_STD List As String
   Dim i_STD As Integer
   Dim nmAuthor_STD As NotesName
   
   On Error Goto ErreurAuthor_LS
   
   If wDoc Is Nothing Then
      Error 9999,"wDoc is Nothing"
      Exit Function
   End If
   
   i_sTD = 0
   Forall Item In wDoc.Items
      If Item.IsAuthors = True Then
         Forall Author In Item.Values
            If Trim(author) <> "" Then
               Set nmAuthor_STD = New NotesName(Author)
               i_STD = 0
               lstValue_STD(Cstr(nmAuthor_STD.canonical)) = Cstr(nmAuthor_STD.canonical)
               Set nmAuthor_STD = Nothing               
            End If   
         End Forall
      End If
   End Forall
   
   If i_STD = 0 Then
      Erase lstValue_STD
      lstValue_STD(0) = ""
      Author_LS = lstValue_STD
      Erase lstValue_STD
      Exit Function
   End If
   
   i_sTD = 0
   Forall Value In lstValue_STD
      lstValue2_STD(i_STD) = Value
      i_STD = I_STD+1
   End Forall
   
   i_sTD = 0
   Erase lstValue_STD
   
   Author_LS = lstValue2_STD
   Erase lstValue2_STD
   Exit Function
ErreurAuthor_LS:
   Msgbox "(Author_LS) Erreur " + Str(Err) + " : " + Cstr(Error)+Chr(10)+"Ligne N° "+Cstr(Erl),16, " ERREUR !"
   Erase lstValue_STD
   Erase lstValue2_STD
   lstValue_STD(0) = ""
   Author_LS = lstValue_STD
   Erase lstValue_STD
   Exit Function
End Function