Как программно открыть выбранный в коллекции документ

[STIL]

Как программно открыть выбранный в коллекции документ

 

[Medevic]

notesUIWorkspace.EditDocument

 

[Dikobraz Grey]

 Dim result As Variant
Const NotesMacro$ = "@Command([OpenDocument];"1")"
result = Evaluate(NotesMacro$, doc)

где doc - твой документ

выбирай)
вместо "1" можно поставить "0" и тогда док откроется для чтения, а не редактирования

 

[STIL]

(3) здорово, то что надо

 

[Constantin A Chervonenko]

 Dim result As Variant
Const NotesMacro$ = "@Command([OpenDocument];"1")"
result = Evaluate(NotesMacro$, doc)

где doc - твой документ

выбирай)
вместо "1" можно поставить "0" и тогда док откроется для чтения, а не редактирования

Интересно, с каких это пор @Command-ы Эвалюэйтиться начали? Я что-то пропустил?

 

[Dikobraz Grey]

Нет, это я что-то стормозил

 

[STIL]

(5,6) Почему? Что там не так?

 

[Dikobraz Grey]

HELP:

@Functions that affect the user interface do not work in the Evaluate method. These include: @Command, @DbManager, @DbName, @DbTitle, @DDEExecute, @DDEInitiate, @DDEPoke, @DDETerminate, @DialogBox, @PickList, @PostedCommand, @Prompt, and @ViewTitle.

а у тебя работает??

 

[GROMILA]

эх, а в хелп почему не заглянешь?

Dim session As New NotesSession
Dim ws As New NotesUIWorkspace
Dim db As NotesDatabase
Dim collection As NotesDocumentCollection
Dim doc As NotesDocument
Dim uidoc As NotesuiDocument

Set db = session.CurrentDatabase
Set collection = db.UnprocessedDocuments
Set doc = collection.GetFirstDocument()
Set uidoc = ws.EditDocument(True,doc)

ну и еще проверочки понатыкай

 

[STIL]

(9) Я уже давно заглянула, но все равно спасибо большое )))