S
sam23
Как сделать что бы некий заранее известный документ можно было прицепить в заранее известное поле.
Например C:/myfile.doc
Нужно прицепить в поле Brif
Например C:/myfile.doc
Нужно прицепить в поле Brif
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 )
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)
@Command( [EditGotoField]; "Brif" )
@Command( [EditInsertFileAttachment]; "C:\myfile.doc"" )
зделайте тип кнопки Formula ( сверху поля в котором Вы пишите код стоит вилимо LotusScript, его надо сменить на Formula )и создаю кнопку. в Click пишу формулу
@Command( [EditGotoField]; "Brif" )
@Command( [EditInsertFileAttachment]; "C:\myfile.doc"" )
Просто кто-то забыл точку с запятой поставить.пытаюсь сохранить,он ругается
"конец формулы наступил до того как встретилась строка"
@Command( [EditGotoField]; "Brif" );
@Command( [EditInsertFileAttachment]; "C:\\myfile.doc" )
Обучение наступательной кибербезопасности в игровой форме. Начать игру!