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

Автор Тема: Помогите экспортировать прикрепленные файлы на диск  (Прочитано 8161 раз)

Celts

  • Новичок
  • *
  • Сообщений: 1
    • Просмотр профиля
Есть задача, которую ни как не получается решить. Есть база Босс-референт. В ней к документам прикреплены файлы 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

  • Global Moderator
  • Профессионал
  • *****
  • Сообщений: 1428
  • Владимир Егоров
    • Просмотр профиля
    • lotusnotes.ru
    • E-mail
Добрый день!

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