Page 1 sur 1
Liste des auteurs d'un document
Publié:
22 Juil 2005 à 17:46par 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