• Познакомьтесь с пентестом веб-приложений на практике в нашем новом бесплатном курсе

    «Анализ защищенности веб-приложений»

    🔥 Записаться бесплатно!

  • CTF с учебными материалами Codeby Games

    Обучение кибербезопасности в игровой форме. Более 200 заданий по Active Directory, OSINT, PWN, Веб, Стеганографии, Реверс-инжинирингу, Форензике и Криптографии. Школа CTF с бесплатными курсами по всем категориям.

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

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

allex

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

Обучение наступательной кибербезопасности в игровой форме. Начать игру!