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
or
Product Usability
?
Help on Help
All Help Contents
Glossary