DokumentenLink kopieren

[skywook]

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.

[Tode]

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

[skywook]

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

[Tode]

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

[skywook]

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

[rambrand]

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