Show UNID

%REM
    Agent Show UNID
    Description: Returns the selected document UNID ready for Copy/Paste
    Created Nov 13, 2010 by Fernando Levi
%END REM
Option Public
Option Declare

Sub Initialize
	On Error Resume Next	
	Dim s As New NotesSession
	Dim db As NotesDatabase
	Dim doc As NotesDocument
	Set doc=s.DocumentContext
	If Not (doc Is Nothing) Then
		Set db = doc.ParentDatabase
		Dim x As String
		x = InputBox ("UNID DB:DOC","UNID", db.ReplicaID + ":" + doc.UniversalID)
	Else
		MsgBox "Select a document"
	End If
End Sub