DominoArea.org [Archive]

Salut,

Je ne sais pas si c'est un oubli mais il existe un 5eme paramètres pour PickListStrings. Ceux présent dans l'aide

Help Designer a écrit:PICKLIST_NAMES (0)
PICKLIST_ROOMS (1)
PICKLIST_RESOURCES (2)
PICKLIST_CUSTOM (3)

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)
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]