Как глобально или локально получить гиперссылку на документ.

[PaKo]

Необходимо дать пользователю по клику получит гипер-ссылку на д-т.
Не лотусовую, а ту что в св-вах документа в поле "Код".

Я сделал кнопку с кодом:

Dim tmpvar As Variant
Dim ws As New NotesUIWorkspace
tmpvar=Inputbox$("Ссылка на документ" ,,ws.CurrentDocument.Document.NotesURL,100,100)

Пользователь нажимает кнопку и получает в inputbox'e выделенную ссылку. Остается только ctrl+c и все. Но эту кнопку необходимо вставлять в каждый д-т. Можно ли в панели инструментов сделать глобальную кнопку? И еще. Можно ли реализоват ьчто б ссылка автоматом копировалась в буфер?

 

[Omh]

Можно.

Кнопки на панели хранятся в базе bookmarks.nsf.
Про это много статей и на этом форуме и на других.

Копирнуть в клипборд можно через uidoc.Copy или использая WinAPI/Java.

Varinat в твоём коде не нужен, вполне хватит String.