视图事件:
Sub Queryopendocument(Source As Notesuiview, Continue As Variant)
continue = False
End Sub
还有个事件:目标框架集(双击)
用公式:@Command([ToolsRunMacro];"agent")
在agent里写打开视图或者文件夹的代码!
小木可:
你好!
我写了一段代码,可总是不能达到效果,请您一定帮帮我
Dim workspace As New notesuiworkspace
Dim uidoc As notesuidocument
Dim session As New NotesSession
Dim db As NotesDatabase
Dim db1 As notesuidatabase
Dim view As NotesView
Set db1=workspace.currentdatabase
Set uidoc=workspace.currentdocument
Set db = session.CurrentDatabase
Set view=db.getview("借阅待办理1")
Call workspace.openframeset("档案管理")
Call workspace.settargetframe("right")
Call db1.openview("借阅待办理1")
call uidoc.close