例: 文書のプロパティにアクセスする

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

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