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

Общие вопросы => Разработка приложений => Тема начата: Celts от 01 Апрель 2013, 19:58:27

Название: Помогите экспортировать прикрепленные файлы на диск
Отправлено: Celts от 01 Апрель 2013, 19:58:27

Есть задача, которую ни как не получается решить. Есть база Босс-референт. В ней к документам прикреплены файлы doc, exl, pdf и т.д. Необходимо выгрузить все файлы на диск.
Как экспортировать если файл был добавлен как вложение, разобрался (на скрине, файл с непонятным именем).

doc = dc.GetFirstDocument
Foreach item In doc.Items
  If (item.name = "$FILE")
    obj = doc.GetAttachment(item.values(0))
    obj.ExtractFile(spath+"\"+item.values(0))
  EndIf
endforeach

Но агент не работает, если документы word были созданы из шаблона которые уже был в Lotus (на скрине файл с именем "Документ").
Если док. создали из шаблона то появляется поле $OLEOBJINFO, в котором по-видимому и хранится документ. Но как его от туда вытащить не хватает ума… как только уже не пробовал. :-\

p.s. Lotus изучаю пару дней, если вдруг не так спросил, тапками плииз не кидайте  ::)

Название: Помогите экспортировать прикрепленные файлы на диск
Отправлено: ViV от 19 Апрель 2013, 13:27:58

Добрый день!

Посмотрите в сторону класса NotesDXLExporter. На форуме был пример экспорта картинок из тела письма:
http://www.lotusnotes.ru/forum/index.php/topic,74.msg161.html