Das Notes Forum

Domino 9 und frühere Versionen => ND9: Entwicklung => Thema gestartet von: skywook am 27.07.15 - 11:10:46

Titel: DokumentenLink kopieren
Beitrag von: skywook am 27.07.15 - 11:10:46

Hallo,

gibt es eine Möglichkeit einen DokumentenLink (Backend) zu kopieren und diesen dann in ein UI-Dokument einzufügen.

Für einen Tipp wäre ich dankbar.

Titel: Re: DokumentenLink kopieren
Beitrag von: Tode am 27.07.15 - 13:05:45

Ja, über die NotesRichtextNavigator- Klasse. Ist aber alles andere als Trivial.

Titel: Re: DokumentenLink kopieren
Beitrag von: skywook am 27.07.15 - 13:29:56

soweit habe ich das Script. Der Link wird gesucht und "markiert". Aber wie kann ich den kopieren bzw übertragen.

Titel: Re: DokumentenLink kopieren
Beitrag von: Tode am 27.07.15 - 13:34:34

Wie wäre es, wenn Du Deinen Code BIS DA postest und sagst, wo Du nicht weiterkommst?

Titel: Re: DokumentenLink kopieren
Beitrag von: skywook am 27.07.15 - 13:53:04

Gerne  :)

Hier der Schnipsel mit dem ich den Link suche. Dieser wird auch gefunden. Aber wie kann ich diesen jetzt "kopieren".

               Set rtitemMail = doc.GetFirstItem( "Body" ).............

             
   Set rtrange = rtitemMail.CreateRange
   Set rtnav = rtitemMail.CreateNavigator
   If rtnav.FindFirstElement(RTELEM_TYPE_DOCLINK) Then
      Call rtitemMail.BeginInsert(rtnav)
      Call rtitemMail.EndInsert
   End If

Titel: Re: DokumentenLink kopieren
Beitrag von: rambrand am 27.07.15 - 16:10:21

Hi,

würde da nicht eher GetFirstElement() Sinn machen?
Dein Code erstellt den Navigator, sucht darin den ersten DocLink und dann fügt er nicht den Link, sondern den Navigator ins Body-Feld ein.

Deiner Aussage nach willst Du aber den Link einfügen.

Code

Dim rtlink as NotesRichTextDocLink
Set rtnav = rtitemMail.CreateNavigator
If rtnav.FindFirstElement(RTELEM_TYPE_DOCLINK) Then
      rtlink = rtnav.GetFirstElement(RTELEM_TYPE_DOCLINK)
      Call rtitemMail.BeginInsert(rtlink)
      Call rtitemMail.EndInsert
End If

Bye,
Markus