Помогите пожалуйста экспортировать все прикрепленные файлы

[simon_2007]

Проблема такая есть база itoffice.nsf (БОССреферентовская канцелярия)
к некоторым документам внутри базы прикреплены jpg, pdf файлы
есть задача экспортировать все файлы кучей на диск

не могу подступиться

то ли shared agenta нужно писать перебирающего,
то ли есть брут форсный метод какойто сторонний

[lotusnotes.ru]

Агент.
Примерно такой код:

Код: [Выделить]

Dim s As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim doccoll As NotesDocumentCollection
Dim doc As NotesDocument
Dim obj As NotesEmbeddedObject
Dim spath As String

Set db = s.CurrentDatabase
Set doccoll = db.UnprocessedDocuments

If doccoll.Count=0 Then
Exit Sub
End If

spath = "C:\Архив Файлов"
Mkdir spath

Set doc = doccoll.GetFirstDocument
While Not doc Is Nothing
bl = False
Forall item In doc.Items
If (item.name = "$FILE") Then
Set obj = doc.GetAttachment(item.values(0))
obj.ExtractFile(spath+"\"+item.values(0))
End If
End Forall
Call s.UpdateProcessedDoc(doc)
Set doc = doccoll.GetNextDocument(doc)
Wend

Messagebox ("Файлы сохранены в директории C:\Архив Файлов.")


[simon_2007]

Спасибо!!!