1. Наш канал codeby в telegram. Пишем об информационной безопасности, методах защиты информации, о программировании. Не пропускай новости с кодебай, будь в тренде ! Подробнее ...

    Скрыть объявление

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

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

  1. allex

    allex Гость

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


    Код:
     
    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
     

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