S
SkyRanger
Пишу как описано в хелпе:
Нефига не пашет
Отладка показывает что EmbeddedObjects нема у rtitem
При этом если использовать rtitem1 так Set rtitem1 = doc.GetFirstItem( "doc_file" ) получаю ошибку что мол типы не совместимы... Хотя в хелпе встречается и такое...
В общем задача открыть приатаченый файл как по меню "Open"
Я вообще хотел сделать 1 кнопку для печати, чтобы открылся ворд, вывести на печать и закрыть, а вторая кнопка чтобы тупо открыть документ в Word
---
Странно... Я забыл оказывается прибить поле созданое ручками и он ругался на динамически создаваемое поле, причем какое имя он ему давал науке неизвестно... Вот ведь гад...
Код:
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim object As NotesEmbeddedObject
Dim doc As NotesDocument
Dim filename As Variant
Dim rtitem As Variant
Dim rtitem1 As NotesRichTextItem
Set uidoc = ws.CurrentDocument
Set doc = uidoc.Document
Set rtitem = doc.GetFirstItem( "doc_file" )
Forall o In rtitem.EmbeddedObjects
Call o.Activate(True)
End Forall
Нефига не пашет

Отладка показывает что EmbeddedObjects нема у rtitem
При этом если использовать rtitem1 так Set rtitem1 = doc.GetFirstItem( "doc_file" ) получаю ошибку что мол типы не совместимы... Хотя в хелпе встречается и такое...
В общем задача открыть приатаченый файл как по меню "Open"
Я вообще хотел сделать 1 кнопку для печати, чтобы открылся ворд, вывести на печать и закрыть, а вторая кнопка чтобы тупо открыть документ в Word
---
Странно... Я забыл оказывается прибить поле созданое ручками и он ругался на динамически создаваемое поле, причем какое имя он ему давал науке неизвестно... Вот ведь гад...