Открыть прикрепленный (атачнутый) к документу файл

SkyRanger

Active member
17.03.2007
44
0
#1
Пишу как описано в хелпе:

Код:
	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

---

Странно... Я забыл оказывается прибить поле созданое ручками и он ругался на динамически создаваемое поле, причем какое имя он ему давал науке неизвестно... Вот ведь гад...
 
H

Hedg

#2
Что не вяжеться

Dim rtitem As Variant
Dim rtitem1 As NotesRichTextItem

Set rtitem = doc.GetFirstItem( "doc_file" )