Форум продуктов IBM Lotus

Общие вопросы => Разработка приложений => Тема начата: simon_2007 от 05 Март 2010, 16:33:31

Название: Помогите пожалуйста экспортировать все прикрепленные файлы
Отправлено: simon_2007 от 05 Март 2010, 16:33:31

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

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

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

Название: Re: Помогите пожалуйста экспортировать все прикрепленные файлы
Отправлено: lotusnotes.ru от 06 Март 2010, 22:23:18

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

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

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:\Архив Файлов.")


Название: Re: Помогите пожалуйста экспортировать все прикрепленные файлы
Отправлено: simon_2007 от 09 Март 2010, 11:13:07

Спасибо!!!