Просмотр сообщений
1
Разработка приложений / Помогите экспортировать прикрепленные файлы на диск
« : 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 изучаю пару дней, если вдруг не так спросил, тапками плииз не кидайте
Как экспортировать если файл был добавлен как вложение, разобрался (на скрине, файл с непонятным именем).
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 изучаю пару дней, если вдруг не так спросил, тапками плииз не кидайте