Редактирование аттачментов

[FEDAZzZ]

Помогите, пожалуйста...

В документе есть приаттаченный файл (например Excel). Так же в этом документе есть поле. Надо чтобы по нажатию кнопки значение из этого поля внеслось в документ (например в ячеку B11 - если это ексел.) как это можно сделать?

 

[Alexander (Criz)]

Шаги примерно такие:
1. Открепляешь аттач на диск
2. Открываешь его в Excel через OLE
3. Вставляешь в нужную ячейку значения из дока.
4. Сохраняешь Excel
5. Закрываешь Excel
6. Удаляешь старый аттач, прикрепляешь изменённый.
7. Сохраняешь док Лотуса.

 

[Kizarek86]

8.удаляешь эксельный файл из системы)

 

[FEDAZzZ]

Шаги примерно такие:
1. Открепляешь аттач на диск
2. Открываешь его в Excel через OLE
3. Вставляешь в нужную ячейку значения из дока.
4. Сохраняешь Excel
5. Закрываешь Excel
6. Удаляешь старый аттач, прикрепляешь изменённый.
7. Сохраняешь док Лотуса.

Спасибо :blink: за алгоритм, вроде получилось .... Только воот возниклу проблемы... а как удалить файл из аттача?... может где-нибудь на форуме это обсуждалось.... сейчас поищу... Может кто подскажет.

 

[Omh]

NotesEmbeddedObject.Remove

 

[FEDAZzZ]

NotesEmbeddedObject.Remove

Спасибо, нашел и получается. :blink:

Только возникла другая проблемка... вот чать кода:

Set vFile = rtitem.GetEmbeddedObject(vPrompt)
Call vFile.ExtractFile(strTempPath + "\" + vPrompt) ' скидываем файл на диск
Call vFile.Remove 'удаляем аттачмент
Call rtitem.Update
..
..
Call doc.Save(True , True )

Поле RichText, не обновляется... То есть файл удаляется... но не видно что он удален... Надо закрыть и заново открыть документ...

Это надо как-то обновить вид документа?

Зы. Извиниюсь, может за столько "глупые " вопросы просто только не давно начал писать на Lotus'e

З.з.ы Нашел ветку форуме где это проблема обсуджалась..только не понял конкретного решения...

 

[FEDAZzZ]

Порылся в Хелпе и в книжках умных нашел что для обновления RichText вроде надо открыть и закрыть докумен и подругому не помогает.. не поможет и "Call notesUIDocument.Refresh" ни Call notesUIDocument.Reload

Вроде так... правда не знаю точно ли я прав...

А так спасибо все работает

 

[Omh]

FEDAZzZ
Прав
Переоткрыть.