LOTUSSCRIPT/COM/OLE CLASSES

Examples: LockHolders property
This view action displays the lock holders for the current document.

Sub Click(Source As Button)
 Dim session As New NotesSession
 Dim db As NotesDatabase
 Set db = session.CurrentDatabase
 
 REM Exit if locking is not enabled
 If Not db.IsDocumentLockingEnabled Then
   Print "Document locking not enabled"
   Exit Sub
 End If
 
 REM Get selected document
 Dim dc As NotesDocumentCollection
 Dim doc As NotesDocument
 Set dc = db.UnprocessedDocuments
 Set doc = dc.GetFirstDocument
 
 REM Display lock holders
 holders = doc.LockHolders
 If holders(0) = "" Then
   Messagebox "None",, "Lock holders"
 Else
   Forall h In holders
     msg$ = msg$ & h & Chr(13)
   End Forall
   Messagebox msg$,, "Lock holders"
 End If
End Sub

See Also