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

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

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

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

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

Сломался Object.activate

  • Автор темы motogarri
  • Дата начала
M

motogarri

Все утро туплю, не пойму в чем дело. Не срабатывает Activate. То есть вообще не открывается, даже на секунду.
fileName бертся, object тоже...

Может упустил что? Вроде все так.

Код:
Dim s As New NotesSession
Dim ws As New NotesUIWorkspace
Dim doc As NotesDocument
Dim object As NotesEmbeddedObject
Dim handle As Variant

Set doc = s.CurrentDatabase.UnprocessedDocuments.GetFirstDocument

arr = Evaluate({@AttachmentNames}, doc)
fileName = ws.Prompt(PROMPT_OKCANCELLIST,"Выбор файла", "","",arr)
If fileName = "" Then Exit Sub

Set object = doc.GetAttachment(fileName)
'Set handle = object.Activate(True)
Set handle = object.Activate(False)
 

Medevic

Что это ? :)
Green Team
10.12.2004
3 334
1
BIT
4
На аттачментах не работает. В хелпе написано же.
 
M

motogarri

Так это что получается, открыть присоединенный к документу файл по имени можно только через сохранение на диске?
 

lmike

нет, пердело совершенство
Lotus Team
27.08.2008
7 933
609
BIT
177
вот... сколько говорить - перестаньте юзать КОМ :)
плюнуть-растереть-забыть
ведь конечная цель никак не завязана на него - надо задачу выполнить, а не - МС технологи применить
вапще - вызов внешних приложений, из нотусни - это возможность, но она увеличивает энтропию :)
 
Мы в соцсетях:

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