Сохранение вложений документа

Тема в разделе "Lotus - Программирование", создана пользователем DEN888, 20 июн 2011.

Статус темы:
Закрыта.
  1. DEN888

    DEN888 Гость

    Приветствую

    Подскажите пожалуйста как правильно сохранить, через LS вложения поля (Body) текущего документа.

    нашел через Help пример

    Код (LotusScript):
    Dim doc As NotesDocument
    Dim rtitem As Variant
    Dim fileCount As Integer
    Const MAX = 100000
    fileCount = 0  
    '...set value of doc...
    Set rtitem = doc.GetFirstItem( "Body" )
    If ( rtitem.Type = RICHTEXT ) Then
    Forall o In rtitem.EmbeddedObjects
    If ( o.Type = EMBED_ATTACHMENT ) _
    And ( o.FileSize > MAX ) Then
    fileCount = fileCount + 1
    Call o.ExtractFile _
    ( "c:\reports\newfile" & Cstr(fileCount) )
    Call o.Remove
    Call doc.Save( True, True )
    End If
    End Forall
    End If
    Данный код указал в действии формы, при нажатии на кнопку выходит ошибка:
    "Переменная объекта не задана."

    PS: В LS новенький, прошу демонстрационный пример, заранее спасибо
     
  2. DEN888

    DEN888 Гость

    вроде бы получилось :rolleyes:

    Код (LotusScript):
    Sub Click(Source As Button)
    Dim workspace As New NotesUIWorkspace
    Dim session As New NotesSession
    Dim db As NotesDatabase
    Dim Pdoc As NotesDocument
    Set db = session.CurrentDatabase
    Set Pdoc = workspace.CurrentDocument.Document

    Set rtitem = Pdoc.GetFirstItem( "Body" )
    If ( rtitem.Type = RICHTEXT ) Then
    Forall o In rtitem.EmbeddedObjects
    If ( o.Type = EMBED_ATTACHMENT ) Then
    Call o.ExtractFile ("C:\reports\" & o.Name)  
    End If
    End Forall   
    End If
    End Sub
    может есть лучше варианты?
     
  3. hosm

    hosm * so what *

    Регистрация:
    18 май 2009
    Сообщения:
    2.450
    Симпатии:
    7
    Если не юзаются дальше, то вполне можно убрать строки Dim db As NotesDatabase Set db = session.CurrentDatabase
    и можно вместо o.Name брать o.Source
     
  4. lmike

    lmike нет, пердело совершенство
    Команда форума Lotus team

    Регистрация:
    27 авг 2008
    Сообщения:
    6.078
    Симпатии:
    300
    есть, здесь выкладывали @AttachmentNames
     
Загрузка...
Статус темы:
Закрыта.

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