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

Тема в разделе "Lotus - Программирование", создана пользователем Sandro, 13 янв 2010.

  1. Sandro

    Sandro Гость

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

    Код (Text):
     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")
    А хотелось бы сделать так , что б сохранился любой файл приаттаченный в нужном поле и этот же шаблон потом заполнить, это вообще реально ?
     
  2. Xalet

    Xalet Well-Known Member

    Регистрация:
    8 авг 2008
    Сообщения:
    410
    Симпатии:
    0
    Код (Text):
    Forall o In att.EmbeddedObjects
    If ( o.Type = EMBED_ATTACHMENT )Then
    attName = "%TEMP%" +o.name
    Call o.ExtractFile(attName)
    End If
    End Forall
     
  3. Sandro

    Sandro Гость

    Спасиб
     
Загрузка...

Поделиться этой страницей