Добрый день, коллеги!
Понимаю что для многих эта тема избита и своё решение найдено, однако снова поднимаю эту тему.
Необходимо решить задачу корректного отображения вложения изменнённого следующим образом:
Имеется вложение, которое позволяется редактировать по хотспоту "редактировать" Рис.1.
Код хотспота:
Sub Click(Source As Button)
Dim NewRTItem As NotesRichTextItem
Dim Var As Variant
If sy_ws.DialogBox("BodyEdit",True,True,False,False,False,False,"Title",Cdoc,True) Then
cdoc.Saveoptions="0"
Set NewRTItem=New NotesRichTextItem(cdoc,"Body")
Call sy_ws.currentdocument.close(True)
Call sy_ws.EditDocument(True,Cdoc)
End If
End Sub
В подформе "BodyEdit" происходит удаление/добавления вложений на собаках(Рис 2.). Рис 2.
Документ переоткрывается и получается фигура на рисунке 3 (удалил старый и сложил новый объект): Рис. 3
Т.е. файл в документе есть, но в Body отсутсвует EmbeddedObjects.
Без строки "Set NewRTItem=New NotesRichTextItem(cdoc,"Body")" ПРИ тех же действиях получается вообще фигня:
,т.е. вложение "29[1].gif" отображается, но реально его в документе нет
------------------------
Помогите решить задачу отображения, и что бы не в секции неизвестных документов, а в RT поле.
