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."
        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")
        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")
        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, "", _
        End Forall
        Set doc = doccoll.GetNextDocument(doc)
    End Sub