Не работает AppendDocLink в форме документа.

вот почему в кнопке на форме документа
1. Set doc = ws.CurrentDocument.Document    нормально видится же.
Print   doc.id(0) -  всё ок.
.....
Call rti.AppendDocLink( doc, db.Title)   -  не работает.
Call rti.AppendDocLink( db, db.Title) -  работает.

2.

А во вьюхе работает.
Set view = db.GetView( "Setup" )
Set newDoc = New NotesDocument( db )
Set rtitem = New NotesRichTextItem( newDoc, "Body" )
Set doc = view.GetFirstDocument
While Not ( doc Is Nothing )
Call rtitem.AppendDocLink( doc, db.Title )

Мне нужно с открытого документа нажатием кнопки отсылать на лотус-почту док с линком на текущий документ.