Переводит атачмента из одного поля в Embeded Object в другое поле

Тема в разделе "Oбщий функционал", создана пользователем allex, 19 янв 2007.

  1. allex

    allex Гость

    Вот небольшой примерчик кнопки на форме
    которая переводит атачмент в одном поле (Info) в embeded object в другое поле (embed)


    Код (Text):
     
    Sub Click(Source As Button)

    Dim workspace As New NotesUIWorkspace  
    Dim doc As NotesUIDocument
    Dim rtitemA As NotesRichTextItem
    Dim info As NotesRichTextItem
    Set doc = workspace.CurrentDocument 'текущий документ
    If Not doc.Document.HasEmbedded Then Exit Sub
    Set rtitemA = doc.Document.GetFirstItem("info") ' поле где лежит атачмент


    REM Сохраняем аттачи на диск
    Forall att In rtitemA.EmbeddedObjects
    If att.Type = EMBED_ATTACHMENT Then
    filepath$ = "C:\temp\" & att.Source
    Call att.ExtractFile(filepath$) ' сохранение файлов в "C:\temp\"
    Call doc.GotoField("embed")
    Call doc.Import("Microsoft Word",filepath$) ' создание (импорт) объекта Word
    Kill filepath$ ' удаление фалов из дирректории "C:\temp\"
    End If
    End Forall
    Call doc.FieldClear("Info") ' очищение поля "Info"
    Call rtitemA.Update ' обновление поля

    End Sub
     

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