When users double-click a document in an embedded view in the Notes client I want it to display in a popup window rather than full screen. I have tried using @DialogBox in the QueryOpenDocument event but it doesn’t have any affect. This is a Notes client database, not web-based. Does anyone have any suggestions?
Thanks for the responses, but none of them were really helpful. I finally figured it out, using NotesUIWorkspace.Dialogbox. Here’s my code, I hope it helps someone else.
This code is from the view’s QueryOpenDocument event. I am using the CaretNoteID property so it will only work in Notes 6+ and it is not backwards compatible.
– Charles
Sub Queryopendocument(Source As Notesuiview, Continue As Variant)
Dim nSession As NotesSession
Dim nDB As NotesDatabase
Dim nDoc As NotesDocument
Dim nUIWS As NotesUIWorkspace
Dim sDocID As String
Set nSession = New NotesSession
Set nDB = nSession.CurrentDatabase
sDocID = Source.CaretNoteID
Set nDoc = nDB.GetDocumentByID(sDocID)
If Not nDoc Is Nothing Then
Set nUIWS = New NotesUIWorkspace
Call nUIWS.DialogBox("Comment", True, True, False, True, True, True, "Review Comments", nDoc,True, True, True)
End If
Continue = False