Document Link in Memo per Script öffnen und auslesen.

[jkunze]

Hallo,

ich habe mal wieder ein Problemchen:

Kann ich in einem Memo per Script-Button einen Dokument Link auslesen (DocID und RepID)? Hintergrund ist, daß nach einer Umstellung die Links auf eine falsche Datenbank verweisen, auf die keiner mehr Zugriff hat.

Danke für alle Tips und vorab ein schönes WE,

Gruß Jochen

[koehlerbv]

Schau Dir dazu die NotesRichTextDocLink class an - Du findest dort alles, was Du brauchst.

Bernhard

[jkunze]

.... ich habe nach document und link gesucht und nix rechtes gefunden.
Gruß Jochen

[Untitled]

Hi,

Nach "NotesRichTextDocLink" solltest du suchen, nicht nach "document und link". 

Code

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
  msgbox rtlink.DbReplicaID & ", " & rtlink.DocUNID
End Sub

Grüsse
Moritz