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

[Sandro]

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

 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]

Forall o In att.EmbeddedObjects
If ( o.Type = EMBED_ATTACHMENT )Then
attName = "%TEMP%" +o.name
Call o.ExtractFile(attName)
End If
End Forall

 

[Sandro]

Спасиб