LOTUSSCRIPT/COM/OLE CLASSES
Examples: Accessing document properties
1. This example prints properties of a document.
Sub Initialize
Dim db As New NotesDatabase _
("", Inputbox("Name of database file?"))
Dim dc As NotesDocumentCollection
Dim doc As NotesDocument
Set dc = db.AllDocuments
Set doc = dc.GetFirstDocument
Forall docAuthor In doc.Authors
Messagebox docAuthor
End Forall
Messagebox "Created: " & doc.Created
If doc.IsNewNote Then
Messagebox "Is a new note"
End If
If doc.IsResponse Then
Messagebox "Parent: " _
& doc.ParentDocumentUNID
End If
If doc.IsSigned Then
Messagebox "Signed by: " & doc.Signer
Messagebox "Verified by: " & doc.Verifier
End If
If doc.IsValid = True Then
Messagebox "This document is valid."
Else
Messagebox "Document does not exist."
End If
Messagebox "Last accessed: " & doc.LastAccessed
Messagebox "Last modified: " & doc.LastModified
Messagebox "Note ID: " & doc.NoteID
Messagebox "Universal ID: " & doc.UniversalID
End Sub
2. This example creates a new document; puts it in the folders view1, view2, and view3; and prints the folder reference and note ID for each document in the status bar.
Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Set db = session.CurrentDatabase
If(db.FolderReferencesEnabled) Then
Messagebox ("Folder references enabled")
Else
Messagebox("Folder references are not enabled")
Messagebox("Enabling folder references")
db.FolderReferencesEnabled = True
End If
db.FolderReferencesEnabled = True
Set doc = db.CreateDocument
If Not(doc Is Nothing) Then
Call doc.AppendItemValue("To", _
"Test Document Name")
Call doc.AppendItemValue("Subject", _
"Test Document Topic")
Call doc.Save(True, True)
Messagebox ("Adding document to views")
doc.PutInFolder("view1")
doc.PutInFolder("view2")
doc.PutInFolder("view3")
Call doc.Save(True, True)
End If
Dim doccoll As NotesDocumentCollection
Set doccoll = db.AllDocuments
Set doc = doccoll.GetFirstDocument
While Not(doc Is Nothing)
i = 0
Forall FolderReference In doc.FolderReferences
i = i+1
Print doc.noteid, "", i, "", _
FolderReferences
End Forall
Set doc = doccoll.GetNextDocument(doc)
Wend
End Sub
See Also
Accessing document properties in LotusScript classes
Glossary
Feedback on
Help
or
Product Usability
?
Help on Help
All Help Contents
Glossary