Quick View

Rooose

Does anyone have an example of how to use the QuickViewCmd Command.
Is it used in conjuction with the Worksite Canvas ActiveX?
Which ContextItems are neccessary for its execution?
Is it supported??

I cannot find any documentation on this command so any feedback would be much appreciated...

Basically i would like to use the 'quick view' window in Desksite/Mailsite in my own application

thankyou

jny

The QuickViewCmd does not display the quick view window when used independently; this command will only download a local copy of the selected document.

Would it be feasible to use the ViewCmd in your app instead?

Option Explicit

Private Sub Form_Load()
On Error GoTo Oops
Dim dms As New IManage.NRTDMS
Dim sess As IManage.NRTSession
Dim db As IManage.NRTDatabase
Dim doc As IManage.NRTDocument

Set sess = dms.Sessions.Add("MYSERVER")
sess.TrustedLogin
Set db = sess.PreferredDatabase
Set doc = db.GetDocument(12, 3)
If doc Is Nothing Then GoTo Cleanup

Dim cmd As IMANEXTLib.ViewCmd
Dim context As IMANEXTLib.ContextItems
Dim dox(0) As IManage.NRTDocument

Set dox(0) = doc
Set cmd = New IMANEXTLib.ViewCmd
Set context = New IMANEXTLib.ContextItems

' Add required contextitems
context.Add "ParentWindow", Form1.hWnd
context.Add "SelectedNRTDocuments", dox

' Optional contextitems
Dim sTempPath As String
sTempPath = "C:/Temp/"
context.Add "TempDirectory", sTempPath ' sTempPath must be a valid filepath
context.Add "IManExt.FullTextSearchString", ""

cmd.Initialize context
cmd.Update
If cmd.Status = (cmd.Status And nrActiveCommand) Then
cmd.Execute

Dim blRefresh As Boolean
blRefresh = context.Item("IManExt.Refresh")
If blRefresh = True Then
MsgBox "Done"
End If
context.Remove "IManExt.Refresh"
End If
GoTo Cleanup

Oops:
MsgBox Err.Description
Err.Clear

Cleanup:
' Free all pointers before exiting
If sess.Connected Then sess.Logout
dms.CloseApplication
Set doc = Nothing
Set db = Nothing
Set sess = Nothing
Set dms = Nothing
Set cmd = Nothing
Set context = Nothing
End
End Sub