LOTUSSCRIPT/COM/OLE CLASSES
Examples: GetDocumentByUNID method
1. This agent gets the parents of all the response documents in the current database.
Sub Initialize
Dim s As New NotesSession
Dim db As NotesDatabase
Dim dc As NotesDocumentCollection
Dim doc As NotesDocument, pdoc As NotesDocument
Dim docSubj As String, pdocSubj As String
Set db = s.CurrentDatabase
Set dc = db.AllDocuments
Set doc = dc.GetFirstDocument
While Not(doc Is Nothing)
If doc.IsResponse Then
Set pdoc = _
db.GetDocumentByUNID(doc.ParentDocumentUNID)
docSubj = doc.Subject(0)
pdocSubj = pdoc.Subject(0)
Messagebox "Parent: " + pdocSubj,, docSubj
End If
Set doc = dc.GetNextDocument(doc)
Wend
End Sub
2. This agent demonstrates handling lsERR_NOTES_BAD_UNID. The UNID is deliberately altered to cause the error.
%INCLUDE "lsxbeerr.lss"
Sub Initialize
On Error lsERR_NOTES_BAD_UNID Goto processError
Dim s As New NotesSession
Dim db As NotesDatabase
Dim dc As NotesDocumentCollection
Dim doc As NotesDocument, pdoc As NotesDocument
Dim docSubj As String, pdocSubj As String
Dim badID As String
Set db = s.CurrentDatabase
Set dc = db.AllDocuments
Set doc = dc.GetFirstDocument
While Not(doc Is Nothing)
If doc.IsResponse Then
docSubj = doc.Subject(0)
' Deliberately munge UNID
badID = "Z" & Right(doc.ParentDocumentUNID, 31)
Set pdoc = db.GetDocumentByUNID(badID)
pdocSubj = pdoc.Subject(0)
Messagebox "Parent: " + pdocSubj,, docSubj
End If
getNextDocument:
Set doc = dc.GetNextDocument(doc)
Wend
Exit Sub
processError:
Messagebox docSubj,, "Bad UNID for ..."
Resume getNextDocument
End Sub
See Also
GetDocumentByUNID method
Glossary
Feedback on Help?
Help on Help
Open Full Help Window
Glossary
Feedback on Help?
Help on Help
Open Full Help Window