LOTUSSCRIPT/COM/OLE CLASSES
Examples: PickListCollection method
1. This example displays the documents in the By Author view of a database named ProgWork2 in a modal window then displays the Subject items from the selected list.
Sub Click(Source As Button)
Dim session As New NotesSession
Dim workspace As New NotesUIWorkspace
Dim db As NotesDatabase
Dim collection As NotesDocumentCollection
Dim doc As NotesDocument
Dim item As NotesItem
Set db = session.CurrentDatabase
Set collection = workspace.PickListCollection( _
PICKLIST_CUSTOM, _
True, _
"snapper", _
"ProgWork2", _
"By Author", _
"My Dialog", _
"Please select a document or two." )
If collection.Count = 0 Then
Messagebox "User canceled" ,, _
"Subject item on the document(s)"
Else
Set doc = collection.GetFirstDocument
While Not ( doc Is Nothing )
Set item = doc.GetFirstItem( "Subject" )
If ( item Is Nothing ) Then
messagelist = messagelist & "None" & Chr(10)
Else
messagelist = messagelist & item.Text & Chr(10)
End If
Set doc = collection.GetNextDocument (doc)
Wend
Messagebox messagelist ,, _
"Subject item on the document(s)"
End If
End Sub
2. This example displays the documents in the By Author view of a database called ProgWork2 in a modal window and saves the selected documents to a folder called My Folder when the user clicks OK.
Sub Click(Source As Button)
Dim session As New NotesSession
Dim workspace As New NotesUIWorkspace
Dim db As NotesDatabase
Dim collection As NotesDocumentCollection
Set db = session.CurrentDatabase
Set collection = workspace.PickListCollection( _
PICKLIST_CUSTOM, _
True, _
"snapper", _
"ProgWork2", _
"By Author", _
"My Dialog", _
"Please select a document or two." )
'The following line puts the selected documents in a folder
'called My Folder. The value False means that a folder will
'not be created if one does not already exist.
Call collection.PutAllInFolder( "My Folder", False )
End Sub
See Also
PickListCollection method
Glossary
Feedback on
Help
or
Product Usability
?
Help on Help
All Help Contents
Glossary