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

  • Автор темы STIL
  • Дата начала
Статус
Закрыто для дальнейших ответов.
S

STIL

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

Dikobraz Grey

#3
Код:
 Dim result As Variant
Const NotesMacro$ = "@Command([OpenDocument];"1")"
result = Evaluate(NotesMacro$, doc)
где doc - твой документ

выбирай)
вместо "1" можно поставить "0" и тогда док откроется для чтения, а не редактирования
 
30.05.2006
1 345
11
#5
Код:
 Dim result As Variant
Const NotesMacro$ = "@Command([OpenDocument];"1")"
result = Evaluate(NotesMacro$, doc)
где doc - твой документ

выбирай)
вместо "1" можно поставить "0" и тогда док откроется для чтения, а не редактирования
Интересно, с каких это пор @Command-ы Эвалюэйтиться начали? Я что-то пропустил?
 
D

Dikobraz Grey

#8
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

Well-known member
08.04.2004
297
0
#9
эх, а в хелп почему не заглянешь?

Код:
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)
ну и еще проверочки понатыкай
 
S
#10
(9) Я уже давно заглянула, но все равно спасибо большое :))))
 
Статус
Закрыто для дальнейших ответов.