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

  • Автор темы allex
  • Дата начала
A

allex

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