LOTUS Domino 初学者指南：创建热点、文档归档与文件夹管理

"本资源是针对LOTUS Domino初学者的学习指南，主要涉及如何创建页面热点以打开文档、实现文档归档到特定文件夹以及从文件夹视图中移除文档但不删除的操作。这些技巧通过LOTUS Script代码示例进行解释，帮助用户更好地理解和应用LOTUS Domino的基本功能。" 在LOTUS Domino的学习过程中，掌握一些实用技巧可以极大地提升效率。以下是对提供的三个问题的详细解答： 1. 如何在页面上建立一个热点，让它打开一个特定文档？ 在LOTUS Domino中，你可以通过创建热点链接来实现这个功能。首先，在页面上输入你想显示的文字，然后选中这些文字，接着从菜单栏选择“创建”->“热点”->“操作热点”。在这里，你可以选择使用LOTUS Script来定义热点的点击行为。下面是一个示例代码，它会在点击后打开ID为"NT00000C62"的文档： ```lotusscript Sub Click(SourceAs 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("NT00000C62") Call uiworkspace.EditDocument(True, doc, False) End Sub ``` 这段代码创建了一个点击事件，当用户点击热点时，会打开指定ID的文档，并在编辑模式下显示。 2. 如何实现归档，将当前视图中所有被选中的文档归入名为"fold"的文件夹？ 如果你想将视图中选中的文档归档到特定文件夹，可以通过LOTUS Script来实现。以下是一个简单的示例： ```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 ``` 这段代码遍历当前视图中的所有文档，将它们放入名为"fold"的文件夹中。请注意，实际应用中可能需要根据实际选择的文档进行调整，因为这个示例会处理视图中的所有文档。 3. 如何从文件夹视图中移除被选择的文档，但不删除它们？ 移除文档但从不删除它们，同样可以通过LOTUS Script完成。以下是一个示例子程序： ```lotusscript 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 docList As Variant If all = 1 Then docList = uiview.FolderDocuments(fold) Else docList = uiview.SelectedDocuments End If ForAll d In docList Call d.RemoveFromFolder(fold) Next End Sub ``` 这个子程序会根据参数`all`的值来决定移除当前选择的文档还是文件夹中所有的文档。它从指定文件夹中移除文档，但不会删除它们，确保了文档的安全性。 通过理解并实践这些示例代码，初学者可以更好地掌握LOTUS Domino中的热点创建、文档归档以及文件夹管理等核心概念。在实际工作中，这些技能将有助于更高效地管理和操作LOTUS Domino数据库。