例: DbReplicaID property

次のエージェントは、現在の文書の Body アイテム内にある、最初の (または唯一の) 文書リンクで使用される参照先データベースのファイルパスとタイトルを表示します。

Dim session As NotesSession
Dim db As NotesDatabase
Dim dc As NotesDocumentCollection
Dim doc As NotesDocument
Dim rti As NotesRichTextItem
Dim rtnav As NotesRichTextNavigator
Dim rtlink As NotesRichTextDocLink
Sub Initialize
  Set session = New NotesSession
  Set db = session.CurrentDatabase
  Set dc = db.UnprocessedDocuments
  Set doc = dc.GetFirstDocument
  Set rti = doc.GetFirstItem("Body")
  Set rtnav = rti.CreateNavigator
  If Not rtnav.FindFirstElement(RTELEM_TYPE_DOCLINK) Then
    Messagebox "No doclinks in Body item",, "No doclinks"
    Exit Sub
  End If
  Set rtlink = rtnav.GetElement
  Dim linkDb As New NotesDatabase("", "")
  If linkDb.OpenByReplicaID("", rtlink.DbReplicaID) Then
    Messagebox linkDb.FilePath,, """" & linkDb.Title & """"
  Else
    Messagebox "No local replica",, "Cannot find database"
  End If
End Sub