.
HCLSoftware Business Partner
Domino Consulting Services
CRUCIAL Notes Tools
+1
212-599-2048
Domino Consulting Services
CRUCIAL Notes Tools
Domino administration
Notes development
Chat now
.
EN - English
CN - 中文
JP - 日本語
DE - Deutsch
FR - Français
BR - Português
RU - Pу́сский
IT - Italiano
IN - हिन्दी
ES - Español
KR - 한국어
ID - Indonesia
NL - Dutch
TR - Türkçe
SA - العربية
SE - Svenska
NO - Norsk
PL - Polski
TH - ไทย
DK - Dansk
MY - Malay
PH - Filipino
GR - Ελληνικά
FI - Suomi
IL - עברית
IE - Gaeilge
CZ - Čeština
UA - Українська
RO - Română
VN - Tiếng Việt
BD - বাংলা
HU - Magyar
Need a Domino Consultant? Call NotesMail +1 212-599-2048
-
HCLSoftware Business Partner
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
Feedback on
Help
or
Product Usability
?
Help on Help
All Help Contents
Feedback on
Help
or
Usability
?
Help on Help
All Help Contents