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

fedotxxl

Well-known member
09.11.2005
614
0
#1
В 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

скриптописец
07.08.2006
3 915
1
#2
Для: 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

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

morpheus

скриптописец
07.08.2006
3 915
1
#4
Такой проблемы у меня не было. Первое что приходит в голову

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