Программно открыть About This Application

[FixeR]

Подскажите, пожалуйста, как можно программно открыть документ "About This Application"?
Документ открывается здесь: Help > About This Application.
Хочется сделать свою кнопку для его открытия.

 

[alik86]

@Command( [HelpAboutDatabase] )

 

[FixeR]

@Command( [HelpAboutDatabase] )

Спасибо, а аналога на лотусскрипте нет?

 

[leiba]

Вот
Set adoc = ndb.GetDocumentByID("FFFF0002")
В смысле, это получение, а открытие через EditDocument, я думаю...

EditDocument не надо - "красное окно"!!!

 

[hosm]

получить - да, а открывать хз как

 

[morpheus]

может док.

Спасибо, а аналога на лотусскрипте нет?

	Dim MyAboutURL As String, ws As New NotesUIWorkspace, doc As NotesDocument, ndb As NotesDatabase
Set ndb = ws.CurrentDatabase.Database
Set doc = ndb.GetDocumentByID("FFFF0002")

MyAboutURL = Inputbox ( "NotesURL", ndb.Title ,Cstr( doc.NotesURL) ) ' Выводим для наглядности
Call ws.URLOpen( MyAboutURL )

 

[hosm]

Morpheus А так малевича не будет?)

 

[morpheus]

Morpheus А так малевича не будет?)

неа, 3 раза проверил, а вот про Edit Document не знал, возьму на заметку как метод убийства