Concloo LotusScript Essentials Beispiele
Beispiele: CNCL_IsUniversalID
Überprüft ob die übergebene UniversalID eine gültige UniversalID in der Datenbank ist.
Dim session As New NotesSession
Dim doc As NotesDocument
Dim col As NotesDocumentCollection
Dim db As NotesDatabase
Set db = session.Currentdatabase
Set col = db.Search("@all", Nothing, 0)
Set doc = col.getfirstdocument
Print CNCL_IsUniversalID(doc.Universalid, db)
Print CNCL_IsUniversalID("12345678123456781234567812345678", db)
Print CNCL_IsUniversalID("12343456781234567812345678", db)
Ausgabe:
True
False
False