Je ne sais pas si c'est un oubli mais il existe un 5eme paramètres pour PickListStrings. Ceux présent dans l'aide
Il existe le 4, je ne sais pas si une constante lui est affecté, il permet de sélectionner les dossiers.[syntax="LotusScript"]Sub Click(Source As Button)Help Designer a écrit:PICKLIST_NAMES (0)
PICKLIST_ROOMS (1)
PICKLIST_RESOURCES (2)
PICKLIST_CUSTOM (3)
Dim Session As New NotesSession
Dim Ws As new NotesUIWorkspace
Dim sMailFile As String
Dim sMailServer As String
Dim vFolder As Variant
sMailFile = Session.GetEnvironmentString( "MailFile", True)
sMailServer = Session.GetEnvironmentString( "MailServer", True)
vFolder = Ws.PickListStrings( 4, False, sMailServer, sMailFile)
If isEmpty(vFolder) Then Exit Sub
End Sub[/syntax]