Klar kann ich das.
Dim rtitem As NotesRichTextItem
Set rtitem = New NotesRichTextItem( newdoc, "doclink_feld" )
Call rtitem.AppendDocLink( doc, doc.UniversalID)
Im Call habe ich es auch schon so versucht mit dem selben Ergebnis, wobei DB und view immer gesetzt sind bzw waren.
Call rtitem.AppendDocLink( doc, db.Titel)
Call rtitem.AppendDocLink( doc, view.Name)