Как удалить Ole объект из документа на Ibm Os 400

[fedotxxl]

В RichText поле просто добавляется файл (через скрепку), документ сохраняется. Я пытаюсь агентом по расписанию удалить аттачи:

Dim objectsList As Variant
Dim object As NotesEmbeddedObject
Dim i As Integer
If docReq.HasEmbedded Then
objectsList = docReq.EmbeddedObjects

If Isempty(objectsList) Then
Print "Документ не имеет встроенных объектов"
Exit Sub
End If

For i = 0 To Ubound(objectsList)
Set object = objectsList(i)
Call object.Remove
Next
Call docReq.Save(True, True)
End If

Интересно, что docReq.HasEmbedded возвращает тру, а objectsList пустой... Как поступить?

 

[morpheus]

Для: fedotxxl
EmbeddedObjects property

Example
Read-only. The OLE/2 and OLE/1 embedded objects in a document.

Note Embedded objects and object links are not supported for OS/2, UNIX, and the Macintosh. File attachments are.

 

[fedotxxl]

Для: Morpheus
Спасибо, я не спрашивал почему. Я спрашивал КАК?
Почему я итак уже догадался (гр*цензура*ный Linux, ни COM'a, ни OLE)

 

[morpheus]

Такой проблемы у меня не было. Первое что приходит в голову

2 варианта:
1. Где то на другой машинке с windows стартует агент и перелапачивает в базе всё. Увеличиваеться скорость работы.
2. Где то на той же лок. машинке. Машинка реплецирует себе базу ( resive only ) . опять же перелопачивает всё что есть ( но уже на локали, что намного быстрее ) и реплецирует базу обратно ( send only )

 

[Kee_Keekkenen]

может просто поле удалить?.