если в пустом или новом итеме, то:
Код:
Dim rtitem As New NotesRichTextItem( doc, "ItemName" )
Call rtitem.AppendDocLink(doc2, "комментарий", "текст ссылки")
если в существующем итеме с содержимым, то:
Код:
Dim rtitem As Variant
Set rtitem = doc.GetFirstItem( "ItemName" )
Call rtitem.AppendDocLink(doc2, "комментарий", "текст ссылки")