Mit rtitem.Append Links ergänzen

[Alexis]

Hallo Forum,

mit folgendem Script kann ich einen Link ins Parent-Dokument eintragen. Nun möchte ich die bisherigen Links und Attachments im Feld "Attachments" des Parent-Dokumentes aber erhalten, so dass der Link nur drangehängt wird.

Set rtitem = New NotesRichTextItem (parentdoc,"Attachments")
Call rtitem.AppendText("Link to ... --> ")
Call rtitem.AppendDocLink(source.Document, "")

Wie stelle ich das an?

Alexis

[Glombi]

Ich würde es so machen:

Set rtitem = parentdoc.GetFirstItem("Attachments")
if rtitem is nothing then
 Set rtitem = New NotesRichTextItem (parentdoc,"Attachments")
End if
Call rtitem.AppendText("Link to ... --> ")
Call rtitem.AppendDocLink(source.Document, "")

Andreas

[Alexis]

Hallo Andreas,

vielen Dank, klappt prima!

Was würde ich nur ohne Euch Know How - Träger machen? 

Alexis