LOTUSSCRIPT/COM/OLE CLASSES

Examples: GetNextElement method
This agent displays the file path and title of the target database of all the doclinks in the Body item of the current or first selected document.

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
 Set rtlink = rtnav.GetFirstElement(RTELEM_TYPE_DOCLINK)
 If rtlink Is Nothing Then
   Messagebox "Document contains no links",, "No links"
   Exit Sub
 End If
 Dim linkDb As NotesDatabase
 While Not(rtlink Is Nothing)
   Set linkDb = New NotesDatabase("", "")
   If linkDb.OpenByReplicaID("", rtlink.DbReplicaID) Then
     Messagebox linkDb.FilePath,, """" & linkDb.Title & """"
     Delete linkDb
   Else
     Messagebox "No local replica",, "Cannot find database"
   End If
   Set rtlink = rtnav.GetNextElement
 Wend
End Sub

See Also