1. Получи 30.000 рублей. Для получения денег необходимо принять участие в конкурсе авторов codeby. С условиями и призами можно ознакомиться на этой странице ...

    Внимание! Регистрация авторов на конкурс закрыта.

    Скрыть объявление
  2. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление

Добавляю ссылку в Rtf

Тема в разделе "Lotus - Программирование", создана пользователем -, 19 фев 2007.

Статус темы:
Закрыта.
  1. Гость

    Репутация:
    0
    Добавляю ссылку вот таким кодом:
    REM Поместим ссылку на этот документ
    Set item = New NotesRichTextItem(docst, "Contragent")
    If item Is Nothing Then
    Print "Не найдено поле"
    Exit Sub
    End If
    Call item.AppendDocLink(doc, "Контрагент")
    Call item.AppendText _
    (" "+doc.Name(0) )
    Call item.Update
    Call docst.Save(False, False)


    А ссылка текст doc.Name появляется только после закрытия и открытия документа.... знаю что проблемно с RichText работать, но все-таки можно что-нибудь сделать чтобы избежать этого, очень бы хотелось.... :)
     
  2. Medevic

    Medevic Что это ? :)
    Lotus team

    Репутация:
    0
    Регистрация:
    10 дек 2004
    Сообщения:
    3.346
    Симпатии:
    2
    Можно. Вот пример:
    Код:
    Sub Click(Source As Button)
    Dim ws As New NotesUIWorkspace
    Dim session As New NotesSession
    Dim rti As NotesRichTextItem
    Dim uidoc As NotesUIDocument
    Dim doc As NotesDocument
    
    Set uidoc = ws.CurrentDocument
    Set rti = New NotesRichTextItem(uidoc.Document, "Body")
    Set doc = ...' получаем документ
    Call rti.AppendDocLink(doc, "ссылка")
    Call rti.Update
    
    uidoc.Document.SaveOptions = "0"
    Call uidoc.Close
    uidoc.Document.Form = "Form" 'указываем свою форму
    Set uidoc = ws.EditDocument(True, uidoc.Document, False)
    Call uidoc.Document.RemoveItem("SaveOptions")
    End Sub
     
  3. Гость

    Репутация:
    0
    Спасибо, получилось!
    Только документ "моргает", потому как закрывается и открывается снова....
    Но похоже, что без этого никак не обойтись...
     
Загрузка...
Статус темы:
Закрыта.

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