... Dim doc As NotesDocument ' <= Das sich in bearbeitung befindende Dokument Dim docLink As NotesDocument ' <= Das Dokument, auf dass verwiesen werden soll Dim rtitem As NotesRichTextItem ... Set rtitem = doc.GetFirstItem( feldname ) Call rtitem.AppendDocLink (docLink, "User-Info zu dem Dokument") ...