LOTUSSCRIPT/COM/OLE CLASSES
%INCLUDE "lsxbeerr.lss" 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 Lock the document REM Not locked if return is False or error is raised On Error Goto errh If doc.Lock("Guys", True) Then Print "Document locked" Else Print "Document NOT locked" End If Exit Sub errh: If Err() = lsERR_NOTES_LOCKED Then Print "Document NOT locked" Else Messagebox "Error " & Err() & ": " & Error(),, "Error" End If Exit Sub End Sub
See Also