Сломался Object.activate

[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]

На аттачментах не работает. В хелпе написано же.

 

[motogarri]

На аттачментах не работает. В хелпе написано же.

Нда... Это поторопился я, не прочитал про это. Спасибо, а то еще долго гонял бы отладчик.

 

[motogarri]

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

 

[Medevic]

Получается так.

 

[lmike]

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