F
fedotxxl
В RichText поле просто добавляется файл (через скрепку), документ сохраняется. Я пытаюсь агентом по расписанию удалить аттачи:
Интересно, что docReq.HasEmbedded возвращает тру, а objectsList пустой... Как поступить?
Код:
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