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

Тема в разделе "Lotus - Программирование", создана пользователем kilcher, 14 янв 2009.

Наш партнер Genesis Hackspace
  1. kilcher

    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
     
  2. Omh

    Omh Well-Known Member
    Lotus team

    Регистрация:
    4 июл 2007
    Сообщения:
    2.210
    Симпатии:
    0
    Документ переоткрывала после генерации ричтекса?
     
  3. Yakov

    Yakov Гость

    Или Call rtitem.Update
     
  4. kilcher

    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 в текущем документе и в него должны попасть ссылки,такие как и в новый документ. Но видимо где то ошибка :(
     
  5. Yakov

    Yakov Гость

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

Поделиться этой страницей