LOTUS学习技巧3.docVIP

LOTUS学习技巧?三 ,让它打开一个文档? : 在页面上写一段文字,然后选上这段文字,然后点菜单”创建” –热点--操作热 点 然后选LotusScript ,举个例子,比如打开ID 为NT00000C62的文档: Sub Click(Source As Button) Dim uiworkspace As New notesuiworkspace Dim curdatabase As notesuidatabase Dim database As notesdatabase Dim doc As notesdocument Set curdatabase = uiworkspace.currentdatabase Set database = curdatabase.database Set doc = database.getdocumentbyid(00000C62) Call uiworkspace.EditDocument(True,doc,False ) End Sub 我如何实现归档,比如我如何把当前视图中所有被选中的文档归入文件夹 fold 中? 答: 用Script象如下这样实现: Sub AddDocToFold(fold As String) Dim uiworkspace As New notesuiworkspace Dim uiview As no