программно вложить файл

[sam23]

Как сделать что бы некий заранее известный документ можно было прицепить в заранее известное поле.
Например C:/myfile.doc
Нужно прицепить в поле Brif

 

[Kizarek86]

Ну при создании документа цепляй документ в поле. как приатачить документ смотри в поиске, примеров довольно много было на форуме.

 

[morpheus]

Взято из хэлпа

Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim rtitem As NotesRichTextItem
Dim object As NotesEmbeddedObject
Set db = session.CurrentDatabase
Set doc = New NotesDocument( db )
Set rtitem = New NotesRichTextItem( doc, "Brif" )
Set object = rtitem.EmbedObject( EMBED_ATTACHMENT, "", "C:\myfile.doc")
Call doc.Save( True, True )

 

[sam23]

Может я что то не так делаю. только начал изучать Lotus.
Вставляю код в Initialize формы
вот код - Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim rtitem As NotesRichTextItem
Dim object As NotesEmbeddedObject
Set db = session.CurrentDatabase
Set doc = New NotesDocument( db )
Set rtitem = New NotesRichTextItem( doc, "Brif" )
Set object = rtitem.EmbedObject( EMBED_ATTACHMENT, "", "C:\myfile.doc")
Call doc.Save( True, True )

и ничего неполучается. захожу в форму, а документ не влаживается.
Подскажите как сделать

 

[Kizarek86]

Повесь код на PostOpen. Но поставь условие:

if (Source.IsNewDoc) Then
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim rtitem As NotesRichTextItem
Dim object As NotesEmbeddedObject
Set db = session.CurrentDatabase
Set doc = source.document
Set rtitem = New NotesRichTextItem( doc, "Brif" )
Set object = rtitem.EmbedObject( EMBED_ATTACHMENT, "", "C:\myfile.doc")
Call doc.Save( True, True )
endif

В твоем коде ты новому документу приатачиваешь файл, а не к текущему.

 

[Alex_Sun]

Ты же каждай раз создаёш документ помимо открываемого, да ещё и без указания формы.
Используй событие PostOpen, а до документа доберайся через Source (set doc = Source.Document)

 

[morpheus]

sam23
савсем всё не так делаете...
начните с азов

в Вашем случае надо делать код на кнопку

Dim ws as New NotesUIworkspace
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim rtitem As NotesRichTextItem
Dim object As NotesEmbeddedObject
Set db = session.CurrentDatabase
Set doc = ws.CurrentDocument.Document
Set rtitem = New NotesRichTextItem( doc, "Brif" )
Set object = rtitem.EmbedObject( EMBED_ATTACHMENT, "", "C:\myfile.doc")
call ws.CurrentDocument.Refresh(true)

Не партесь и зделайте кнопку на @-Formula

@Command( [EditGotoField]; "Brif" )
@Command( [EditInsertFileAttachment]; "C:\myfile.doc"" )

з.ы. учите азы. Открывайте книги и штудируйте

 

[Alex_Sun]

Чёрт, меня опередили...

 

[sam23]

ничего не получается объясните если можете все подробно

 

[morpheus]

1. что не получаеться?
2. что должно получиться (описание действий пользователя и системы )

 

[sam23]

пробывал сделать кнопку.
пишу в PostOpen код
Dim ws as New NotesUIworkspace
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim rtitem As NotesRichTextItem
Dim object As NotesEmbeddedObject
Set db = session.CurrentDatabase
Set doc = ws.CurrentDocument.Document
Set rtitem = New NotesRichTextItem( doc, "Brif" )
Set object = rtitem.EmbedObject( EMBED_ATTACHMENT, "", "C:\myfile.doc")
call ws.CurrentDocument.Refresh(true)

и создаю кнопку. в Click пишу формулу
@Command( [EditGotoField]; "Brif" )
@Command( [EditInsertFileAttachment]; "C:\myfile.doc"" )
пытаюсь сохранить,он ругается
"конец формулы наступил до того как встретилась строка"

 

[morpheus]

и создаю кнопку. в Click пишу формулу
@Command( [EditGotoField]; "Brif" )
@Command( [EditInsertFileAttachment]; "C:\myfile.doc"" )

зделайте тип кнопки Formula ( сверху поля в котором Вы пишите код стоит вилимо LotusScript, его надо сменить на Formula )

 

[Medevic]

пытаюсь сохранить,он ругается
"конец формулы наступил до того как встретилась строка"

Просто кто-то забыл точку с запятой поставить.

И кавычка лишняя. И два слеша надо.
Короче:

@Command( [EditGotoField]; "Brif" );
@Command( [EditInsertFileAttachment]; "C:\\myfile.doc" )

 

[sam23]

теперь все нормально сохранилось. но при нажатии на кнопку ничего не происходит

 

[morpheus]

значит нет такого файла на диске С

 

[sam23]

все я разобрался,косяк мой был. а интересно можно програмно нажать клавишу

 

[morpheus]

можно ... но не нужно

 

[Alex_Sun]

А как???

 

[morpheus]

лучше действительно не знать

 

[Xellos]

Как-как... Читайте хелп, он рулез. Там многое есть. Собственно, почти всё, кроме недокументированных возможностей и некоторых неочевидностей.