Сломался Object.activate

motogarri

Well-known member
17.02.2010
200
3
#1
Все утро туплю, не пойму в чем дело. Не срабатывает 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

Что это ? :)
Lotus team
10.12.2004
3 346
1
#2
На аттачментах не работает. В хелпе написано же.
 

motogarri

Well-known member
17.02.2010
200
3
#4
Так это что получается, открыть присоединенный к документу файл по имени можно только через сохранение на диске?
 

lmike

нет, пердело совершенство
Lotus team
27.08.2008
6 586
271
#6
вот... сколько говорить - перестаньте юзать КОМ :)
плюнуть-растереть-забыть
ведь конечная цель никак не завязана на него - надо задачу выполнить, а не - МС технологи применить
вапще - вызов внешних приложений, из нотусни - это возможность, но она увеличивает энтропию :)