Версия для печати темы

Автор: allex 19:01:2007, 07:47

Вот небольшой примерчик кнопки на форме
которая переводит атачмент в одном поле (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