一． Ls 中对域的取值问题： 对于 LotusScript，除了Rich-Text域外的元素，如文本、单选框、列表框、复选框等，你可以用几乎相同的代码取得它们的值。例如：如果有一个 “Location”域，不论它是何种类型，你都可以用下面的LotusScript代码取得它的值： fieldVals = doc.Location 或者这样： fieldVals = doc.GetItemValue("Location") 二． 我如何在页面上建立一个热点,让它打开一个文档? 在页面上写一段文字,然后选上这段文字,然后点菜单”创建” –热点--操作热点 然后选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 中? 用lotusScript象如下这样实现: Sub AddDocToFold(fold As String) Dim uiworkspace As New notesuiworkspace Dim uiview As notesuiview Dim doc As NotesDocument Dim docList As String Set uiview = uiworkspace.currentview For j = 1 To uiview.Documents.Count Set doc = uiview.Documents.GetNthDocument(j) Call doc.PutInFolder( fold ) Next End Sub 四． 我如何实现把某文件夹视图中的被选择的文档从该文件夹中清除,但却不能删除他们? 用Script 实现如下: Sub RemoveDocFromFold( fold As String,all As Integer) '功能： ' 把文档从某个文件夹中移走，但并不删除此文档 '参数： ' fold: 文件夹 ' all : 0表示仅移走当前选择的文档，1表示移走该文件夹中所有文档 Dim uiworkspace As New notesuiworkspace Dim uiview As notesuiview Dim doc As NotesDocument Dim view As notesview Set uiview = uiworkspace.currentview Set view = uiview.view If all = 0 Then '移去所选文档 For j = 1 To uiview.Documents.Count Set doc = uiview.Documents.GetNthDocument(j) Cal...
