Sub Initialize
 Dim session As New NotesSession
 Dim db As NotesDatabase
 Dim view As NotesView
 Dim entry As NotesViewEntry
 Dim pv As NotesView
 Dim doc As NotesDocument
 Set db = session.CurrentDatabase
 Set view = db.GetView("By Category")
 Set entry = view.GetEntryByKey("Cars")
 Set pv = entry.parent
 Set doc = entry.Document
 Messagebox "Children:" & entry.ChildCount & Chr(10) _
 & "Descendants:" & entry.DescendantCount & Chr(10) _
 & "FTSearch score:" & entry.FTSearchScore & Chr(10) _
 & "Indent level:" & entry.IndentLevel & Chr(10) _
 & "Note ID:" & entry.NoteID & Chr(10) _
 & "Parent view UNID:" & pv.UniversalID & Chr(10) _
 & "Siblings:" & entry.SiblingCount & Chr(10) _
 & "Universal ID:" & entry.UniversalID
 
 If entry.IsCategory Then
   Messagebox "This view entry is a category."
 Else
   Messagebox "This view entry is not a category."
 End If
 If entry.IsConflict Then
   Messagebox "This view entry is a conflict document."
 Else
   Messagebox "Not a conflict document."
 End If
 If entry.IsDocument Then
   Messagebox "This view entry is a document."
 Else
   Messagebox "This view entry is not a document."
 End If
 If entry.IsTotal Then
   Messagebox "This view entry is a total."
 Else
   Messagebox "This view entry is not a total."
 End If
 If entry.IsValid Then
   Messagebox "This view entry is valid."
 Else
   Messagebox "This view entry is not valid."
 End If
End Sub

2. 次のスクリプトは、現在のデータベースで競合するエントリを検索し、存在した場合はメールメッセージを送信するエージェントです。

Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim doc As NotesDocument
Dim entry As NotesViewEntry
Set db = session.CurrentDatabase
Dim Vec As  notesViewEntryCollection
conflictCount = 0
Set view = db.GetView( "($All)" )
Set vec = view.AllEntries
Set entry = vec.GetFirstEntry()
Set doc = entry.Document
If session.IsOnServer Then
  serverName = db.Server
Else
  serverName = "local"
End If
While Not (doc Is Nothing)
  If entry.IsConflict Then
     conflictCount = conflictCount + 1
  End If
  Set entry = vec.GetNextEntry(entry)
  If entry Is Nothing Then
     If conflictCount > 0 Then
        temp = "Count Rep Conflicts Agent detected " _
        & conflictCount & " conflicts in database " _
        & db.title & " on "  & serverName
        Set doc = New NotesDocument( db )
        doc.Subject = "Replication conflict alert message"
        doc.Body = temp
        Call doc.Send( False, "John Smith" )
     End If
     Exit Sub
  End If
  Set doc = entry.Document
Wend

ビューエントリのプロパティにアクセスする

用語集