Создание ссылок на документы коллекции

[kilcher]

Здравствуйте!!! С прошедшими всех праздниками!
Давно не обращалась к вам за советом,надеюсь в этот раз вы как всегда наставите меня на путь истинный :blink:

Задача:

В текущем документе я нажатием кнопки выбираю коллекцию документов из другой базы. В одно поле текущего документа копирую sujectы документов коллекции. В другое поле мне следует занести ссылки на эти документы.
В итоге мох поисков,проб и ошибок смогла только отправлять письмо с ссылками на эти доки. В поле текущего документа ссылки добавляться не хотят


Вот часть кода где создаются ссылки
If reviewCol.count = 0 Then Exit Sub
Set db = session.CurrentDatabase
Set newDoc = New NotesDocument ( db )
Set rtitem = New NotesRichTextItem( newDoc, "Body" )
Set doc = reviewCol.GetFirstDocument()


While Not ( doc Is Nothing )
Call rtitem.AppendDocLink( doc, db.Title )
Call rtitem.AddTab( 1 )
Call rtitem.AppendText( doc.Subject( 0 ) )
Call rtitem.AddNewLine( 1 )


Set doc = reviewCol.GetNextDocument( doc )


Wend


newDoc.Subject = "Here are links to all docs in the Boots folder"
newDoc.SendTo = "Ivanov@RJ.RU"
Call newDoc.Send( False )
Set reviewDoc = ws.CurrentDocument.Document

 

[Omh]

Документ переоткрывала после генерации ричтекса?

 

[Yakov]

Или Call rtitem.Update

 

[kilcher]

В новом то документе оно создается,а вот в текущем нет. Т.е. я написала

Set uidoc= ws.CurrentDocument
Set docA= uidoc.Document
Set rtitemA = New NotesRichTextItem(docA, "Body1" )

While Not ( doc Is Nothing )
Call rtitem.AppendDocLink( doc, db.Title )
Call rtitem.AddTab( 1 )
Call rtitem.AppendText( doc.Subject( 0 ) )
Call rtitem.AddNewLine( 1 )
Call rtitemA.AppendDocLink( doc, db.Title )
Call rtitemA.Update
Set doc = reviewCol.GetNextDocument( doc )
Wend

По идее должно появится поле rtitemA в текущем документе и в него должны попасть ссылки,такие как и в новый документ. Но видимо где то ошибка

 

[Yakov]

Нужно переоткрыть текущий документ.