equivalent de @Picklist([Name] : [Single]) en script

[mickael]

je cherche un équivalent à la formule suivante@Picklist( [Name] : [Single] ) en lotus script merci d'avance

[Pof]

Dim workspace As New NotesUIWorkspace Dim picklist As Variant Dim messagelist As String picklist = workspace.PickListStrings( PICKLIST_NAMES ) If ( Isempty( picklist ) ) Then Messagebox "Canceled" , , "Resource selected" Else Forall plist In picklist messagelist = messagelist & plist & Chr(10) End Forall Messagebox messagelist , , "Resource selected" End If

[Pof]

Dim workspace As New NotesUIWorkspace Dim picklist As Variant Dim messagelist As String picklist = workspace.PickListStrings( PICKLIST_NAMES ) If ( Isempty( picklist ) ) Then Messagebox "Canceled" , , "Resource selected" Else Forall plist In picklist messagelist = messagelist & plist & Chr(10) End Forall Messagebox messagelist , , "Resource selected" End If