Как сохранить на диске файл приаттаченный в определённом поле

  • Автор темы Sandro
  • Дата начала
S

Sandro

#1
Добрый :) Надо сохранить приаттаченный файл в папку а потом его запустить, я делаю так

Код:
 Dim docw As NotesDocument	
Dim Obj As NotesEmbeddedObject
If Dir("%TEMP%",16)="" Then Mkdir "%TEMP%"

' взяли служебный документ по ИД
Set Obj=pfdoc.GetAttachment("4.dot")
Call Obj.ExtractFile("%TEMP%\4.dot")
А хотелось бы сделать так , что б сохранился любой файл приаттаченный в нужном поле и этот же шаблон потом заполнить, это вообще реально ?
 

Xalet

Well-known member
08.08.2008
410
0
#2
Код:
Forall o In att.EmbeddedObjects
If ( o.Type = EMBED_ATTACHMENT )Then
attName = "%TEMP%" +o.name
Call o.ExtractFile(attName)
End If
End Forall