Users of this is unnecessary.

Administrator / developer can easily write your agent:
Dim NS As New NotesSession
Dim NA As NotesAgent
Dim ND As NotesDocument

UNID $ = Inputbox ("Required document UNID:", "", "")
If UNID $ = "" Then Exit Sub

Set NA = NS.CurrentAgent

4091 On Error Resume Next
Set ND = NA.Parent.GetDocumentByUNID (UNID $)
If ND Is Nothing Then
Msgbox (Required document (UNID = ") + UNID $ + (") not found in the current database!),, "Lotus Notes ..."
Else
Set NUIWS = New NotesUIWorkspace
Call NUIWS.EditDocument (False, ND,,,, False)
End If
which is easy to hide from other users access settings.
Inherit it to all databases.

Fantastic idea Doc! Generally speaking I have a UNID view in every database for this purpose, but this can be a performance hit and it means changing views and waiting for the view to update.

Vlad, you'd have to put that in EVERY database, which makes it impossibly impractical in controlled environments, excellent tool for a framework though (eg QAF :)

another thought, this could be achieved with a Java sidebar widget in the client but it could be a usability issue to have to drag it open and wait for java to think about whether it wants to help you.

I don't like the idea of adding more complexity to the Notes client for things that should be very easy for a developer to implement for him/her self

@1, @4: In real life you cannot put LS code in all production DBs to just get a NoteID! It's much easier to type "NoteID: 12FA" instead of the text to search....

This particular feature that ordinary users do not need. Most programmers/admins can do it yourself.

Mark, if you don't want it in every database, put it in the Admin/Developer's toolbox database:

%REM
Agent Find doc by UNID
Created Jun 15, 2011 by David Navarre
Description: Find a document by the UNID or NoteID
Modified from code by Vlad Sh
%END REM
Option Public
Option Declare

Sub Initialize
' Ask the user which server and database, then UNID
Dim ws As New NotesUIWorkspace
Dim session As New NotesSession
Dim currentdb As NotesDatabase
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim server As String
Dim filepath As String
Dim UNID As String
Dim msg As String

Set currentdb = session.Currentdatabase
server = InputBox ( "Which server?", "Server", currentdb.Server )
filepath = InputBox ( "Enter the file path (blank to cancel):", "Filepath", currentdb.Filepath )
If filepath = "" Then Exit Sub

Set db = session.Getdatabase(server, filepath, false)
Call db.Open("","")

UNID = InputBox ( "What is the UNID sought?", "Enter UNID", "" )
If UNID = "" Then Exit Sub

Set doc = db.Getdocumentbyunid(UNID)
If doc Is Nothing Then
msg = "No document with UNID = " & UNID & " in the chosen database)"
MessageBox msg, 48, "Not found"
Else
Call ws.EditDocument (False, doc,,,, False)
End If

End Sub