Das Notes Forum

Domino 9 und frühere Versionen => ND6: Entwicklung => Thema gestartet von: jkunze am 09.06.06 - 09:25:26

Titel: Document Link in Memo per Script öffnen und auslesen.
Beitrag von: jkunze am 09.06.06 - 09:25:26

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

Titel: Re: Document Link in Memo per Script öffnen und auslesen.
Beitrag von: koehlerbv am 09.06.06 - 09:38:40

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

Bernhard

Titel: Danke! Genau das ist es, ...
Beitrag von: jkunze am 09.06.06 - 09:59:32

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

Titel: Re: Document Link in Memo per Script öffnen und auslesen.
Beitrag von: Untitled am 09.06.06 - 10:52:20

Hi,

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

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