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

[Guest]

Добавляю ссылку вот таким кодом:
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 работать, но все-таки можно что-нибудь сделать чтобы избежать этого, очень бы хотелось....

 

[Medevic]

Можно. Вот пример:

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

 

[Guest]

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