Lotus script的一些常用方法
lotusscript技巧
Lotus script 技巧LotusScript 是完全面向对象的编程语言。
它通过预定义的类与 Domino 接口。
Domino 监控用户代码的编译和加载，并且自动包含 Domino 的类定义。
访问现有的对象最好使用 LotusScript，例如：根据其他文档的值来更改一个文档中的值。
LotusScript 提供了一些公式没有的功能，例如：操作数据库存取控制列表 (ACL) 的能力。
写script关键是取对象，查看对象的属性，所以你要学会看notes提供的Script帮助。
下面是我收集的一些script例子。
一般是比较技巧的程序。
怎样判断视图中没有文档？set doc = vw.getfirstdocument()if doc is nothing then.....end if如何将查询结果放到一个文件夹里？下面是将搜索结果放到名叫newfolder的文件夹中，并跳转到该文件夹上Sub Click(Source As Button)Dim docs As notesdocumentcollectionDim doc As notesdocument...........q=doc.query(0)Set docs = db.ftsearch(q, 0)Call docs.PutAllInFolder( \"newfolder\" )Call w.OpenDatabase( \"\",\"\",\"newfolder\")End Sub如何删掉数据库中所有私有视图？Dim session As New notessessionDim db As notesdatabaseDim doc As notesdocumentSet db=session.currentdatabaseForall i In db.viewsSet doc=db.getDocumentByUNID(v.universalID)\' 这个地方视图当作文档来处理，以便取到视图的一些属性。
如何在Lotus Script中使用公式
公式语言是可以传值给Lotus Script的，只要合理在Lotus Script中使用公式，可起到事半功成的效果，在Lotus Script中使用公式，用的就是evaluate语句。
Evaluate的格式是:Evaluate("公式")如要取得文档的唯一ID，除可以用doc.universalid得到外，还可以用doc.id=Evaluate("@TEXT(@DocumentUniqueID)")得到一般情况下，用Evaluate对于处理与文本有关的内容有较Lotus Script的相关函数处理有效率。
如：@text@userRoles@replace@replaceshustring@left@right@middle注意：当公式中包含双引号时，可以用单引号代替，也可用花括号代替如:dim tempStr as stringtempStr=Evaluate("@left('name';1)")或：tempStr=Evaluate(@left({name};1)")另外：@DBManager@DBName@DBTittle@DDEExecute@DDElnitiate@DDEpoke@DDETerminate@Command@PostedCommand@DialogBox@PickList@prompt@ViewTitle不适用于evaluate语句Evaluate语句可以使用notes公式进行计算而不必使用复杂的LotusScript语法：variant = notesSession.Evaluate( formula$, doc )计算公式：String. The formula.文档：NotesDocument. The formula context. Cannot be null.返回类型：variant例如：获取当前时间Dim nowtime As Variantnowtime=Evaluate(|@Now|,appdoc)appdoc.check_time=nowtime '2013-01-03 13:10:00公式语言是可以传值给Lotus Script的，只要合理在Lotus Script中使用公式，可起到事半功成的效果，在Lotus Script中使用公式，用的就是evaluate语句。
LOTUS学习技巧3
LOTUS学习技巧三1.我如何在页面上建立一个热点,让它打开一个文档?答: 在页面上写一段文字,然后选上这段文字,然后点菜单”创建” –热点--操作热 点 然后选LotusScript ,举个例子,比如打开ID 为NT00000C62的文档:Sub Click(Source As Button)Dim uiworkspace As New notesuiworkspaceDim curdatabase As notesuidatabaseDim database As notesdatabaseDim doc As notesdocumentSet curdatabase = uiworkspace.currentdatabaseSet database = curdatabase.databaseSet doc = database.getdocumentbyid("00000C62")Call uiworkspace.EditDocument(True,doc,False )End Sub2.我如何实现归档,比如我如何把当前视图中所有被选中的文档归入文件夹 fold 中?答: 用Script象如下这样实现:Sub AddDocToFold(fold As String)Dim uiworkspace As New notesuiworkspaceDim uiview As notesuiviewDim doc As NotesDocumentDim docList As StringSet uiview = uiworkspace.currentviewFor j = 1 To uiview.Documents.CountSet doc = uiview.Documents.GetNthDocument(j)Call doc.PutInFolder( fold )NextEnd Sub3.我如何实现把某文件夹视图中的被选择的文档从该文件夹中清除,但却不能删除他们?答: 用Script 实现如下:Sub RemoveDocFromFold( fold As String,all As Integer)'功能：' 把文档从某个文件夹中移走，但并不删除此文档'参数：' fold: 文件夹' all : 0表示仅移走当前选择的文档，1表示移走该文件夹中所有文档Dim uiworkspace As New notesuiworkspaceDim uiview As notesuiviewDim doc As NotesDocumentDim view As notesviewSet uiview = uiworkspace.currentviewSet view = uiview.viewIf all = 0 Then '移去所选文档For j = 1 To uiview.Documents.CountSet doc = uiview.Documents.GetNthDocument(j)Call doc.RemoveFromFolder( fold )NextElseIf all=1 Then '移去全部文档Set doc = view.GetFirstDocument'遍列该视图的所有文档,获取所有满足条件的纪录数While Not(doc Is Nothing)Call doc.RemoveFromFolder( fold )Set doc = view.GetNextDocument(doc)WendEnd IfEnd If'Evaluate("@Command([ViewRefreshFields])")End Sub4.我如何把当前视图中的所有的被选择的文档的某个域的值替换掉?答: 用Script 实现如下:Sub SelectedDocFieldReplace( Field As String,repval As String) '功能：' 把所选文档中的每个 Field 域的值 改为 repval'参数：' Field 要更改的域的名称' repval 修改后的域值Dim uiworkspace As New notesuiworkspaceDim uiview As notesuiviewDim doc As NotesDocumentDim order_num As String'order_num = Inputbox$("请输入批次")Set uiview = uiworkspace.currentviewFor j = 1 To uiview.Documents.CountSet doc = uiview.Documents.GetNthDocument(j)On Error Goto lable1Call doc.replaceitemvalue(Field,repval)Call doc.save(True,False)NextExit Sublable1:Msgbox("错误！，所选文档没有指定的域，这个错误发生在没有给selectedDocFieldReplace() 函数传递正确的参数")Exit SubEnd Sub5.我如何创建某个程序运行结果的日志文档?6.答: 首先新建一个日志文档的表单,并把该表单设置成数据库的默认表单,然后 就用Script 创建文档,并填写该文档中某些域的值,最后存盘,例子程序片段如下:'写传真日志Dim faxerdoc as notesdocument‘faxerr_receiver,faxerr_docnum,faxerr_content是表单form_faxerr的三个域名‘Set faxerrdoc = New NotesDocument( db )faxerrdoc.Form = "form_faxerr"Call faxerrdoc.replaceitemvalue("faxerr_receiver",Cstr(peoplecount) )Call faxerrdoc.replaceitemvalue("faxerr_docnum",strsucssnding )Call faxerrdoc.replaceitemvalue("faxerr_content",faxerrmsg )success = puteWithForm( False, False )If success ThenCall faxerrdoc.Save( True, False )ElseMsgbox("无法写入传真日志....")End If'Msgbox(faxerrmsg)Exit Sub7.我要从当前视图中选择一批文档,并让程序从这些文档中提取信息,在嵌入在表单中的OLE对象 Word文档中建立一张表,要求是选择了几篇文档就在这张表中画几行,这张表的每个列的信息都中文档中的域中提取,换句话说,就是要把被选文档以Word文档表格的形式表示出来,能否给我一个这方面的例子程序?8.答: 可以,下面就是这样的一个例子:Sub inputgroupplan(source As notesuidocument,doccollection Asnotesdocumentcollection)'功能： 自动生成出团计划表。
学习LotusScript
学习LotusScript学习LotusScriptLotusScript对象与类1．面向对象编程类是以抽象数据类型为基础的对象行为，抽象数据类型定义了以类型为基础执行所有接口为一个类而定义的所有操作称之为方法。
2．对象一般可以从两个方面来理解面向对象编程中的对象：?属性。
?对象。
3．类类是从对象中抽象出来，作为对具有相同特征的一组对象的描述。
类是一种定义，它描述该类中每个对象共有的属性和方法，类不占用计算机内存。
Notes中的类被分为前端类(front-end)和后端类(back-end)两种。
前端类主要对用户当前正在工作的对象、表示Notes客户机用户界面中的对象进行操作。
后端类可以访问和操作任何数据库中的任何文档、视图与文件夹内容、数据库ACL以及外部数据。
7个前端类?NotesUIDatabase ：代表Notes工作台上打开的数据库?NotesUIDocument ：用于用户访问当前文档?NotesUIView ：代表当前的数据库视图?NotesUIWorkspace ：帮助用户访问Notes当前的工作台?Button ：代表表单或文档上的操作按钮、热点或按钮?Navigator ：代表一个导航器上的对象，帮助用户操作浏览器?Field ：代表表单中的一个域。
23个后端类?NotesACL ：代表数据库中的所有存取控制列表，通过它用户可以访问和使用数据库中的存取控制列表?NotesACLEntry ：代表存取控制列表中一个单一的ACL项目，通过它用户可以查询Notes 对象的访问属性?NotesAgent ：代表一个代理，通过它用户可以运行一个代理或查询代理的属性?NotesDatabase ：代表一个数据库，通过它用户可以获得一个数据库的属性和操作该数据库中的文档、视图、表单等所有与数据库相关的对象?NotesDataRange ：代表Notes中的时间和日期，用于Notes中的日历和日程安排?NotesDataTime ：用于Notes中的时间和日期格式的转换?NotesDbDirectory ：代表Notes服务器和本地机上的所有数据库列表?NotesDocument ：代表Notes数据库中的一个文档，通过它可以实现对文档的操作?NotesDocumentCollection ：代表Notes中类的集合，通过它用户可以访问所有的文档?NotesEmbeddedObject ：代表Notes中的嵌入对象、链接和附件，通过它用户可以操作以上的对象?NotesForm ：代表Notes数据库中的一个表单，通过它用户可以访问表单的属性，还可以对表单进行一定的操作?NotesInternational ：代表Notes所在操作系统的不同国家、不同的设置?NotesItem ：代表文档中的域，通过它用户可以访问域的属性?NotesLog ：用于创建Notes日志，记录Notes事件、操作和错误等?NotesName ：代表Notes中的用户名、服务器名和访问控制列表中的名字?NotesNewLetter ：代表一个概要文档，其中包括与其他文档的链接?NotesRichTextItem ：代表RTF域，通过它用户可以访问RTF域?NotesRichTextStyle ：用于设置RTF域的属性?NotesSession ：代表用户与Notes的对话，是所有类的根类?NotesTimer ：通过该类可以设定时间间隔来触发一个事件?NotesView ：代表数据库中的一个视图，通过它用户可以获得数据库中所有的视图的属性和访问视图中的文档?NotesViewColumn ：代表视图中的一个列，通过它用户可以获得列的属性?NotesRegistration ：主要操作Notes用户名和通讯录，通过它用户可以增加用户和服务器、登记新用户、交叉验证等程序书写规则1．注释要添加注释，只要使用单引号“’”作为注释文字的开头。
lotus命令1
－－e－－EditBottom将插入点移动到文档或表单的底部。
语法@Command([EditBottom])用法在处于设计模式的表单中，EditBottom 将插入点移动到表单的底部，就象用户使用ctrl+end 一样。
在处于编辑模式的文档中，EditBottom 将插入点移动到文档的最后一个可编辑域中。
在处于阅读模式的文档中，EditBottom 不起作用。
EditButton为选中的按钮显示设计窗格和属性框。
语法@Command([EditButton])用法必须在编辑模式下打开文档，或者必须在设计模式下打开表单必须选中一个按钮。
EditClear执行菜单命令“编辑”“清除”。
语法@Command([EditClear])用法在视图、文件夹或者处于阅读模式的文档中，将当前选定的文档标记为删除。
在处于编辑模式的文档中，删除突出显示的数据（文本、表格、图形、链接、文件附件或对象）。
在处于设计模式的表单、子表单、视图或文件夹中，删除突出显示的数据、域或列。
在工作台上，删除所选的图标（并非从磁盘上永久删除数据库）。
使用便捷图标来调用此命令最为方便。
当您在Web 应用程序中使用本命令时，它将删除当前文档。
仅对Web 中的表单使用本命令，而在视图操作中无效。
EditCopy执行菜单命令“编辑”“拷贝”。
语法@Command([EditCopy])用法在视图或文件夹中，将选定的文档拷贝到剪贴板。
在处于阅读或编辑模式的文档中，将突出显示的数据拷贝到剪贴板。
在处于设计模式的表单、子表单、视图或文件夹中，将突出显示的数据、域或列拷贝到剪贴板。
您可以使用便捷图标以调用该命令。
EditCut执行菜单命令“编辑”“剪切”。
语法@Command([EditCut])用法在视图或文件夹中，删除选定的文档并将它们放在剪贴板上。
在处于编辑模式的文档中，删除突出显示的数据并将它们放在剪贴板上。
在处于阅读模式的文档中，EditCut 无任何效果。
lotus script
常用lotus script2010-04-10 15:36保存并关闭窗口@Command([FileSave]);@Command([FileCloseWindow])取消保存并关闭窗口REM {Notes only};FIELD SaveOptions := 0;@Command([FileCloseWindow])或 window.close()新建讨论主题viewname := @Subset(@ViewTitle; -1);@SetProfileField("tmpProfile"; "viewtitle"; viewname); @PostedCommand([Compose];"MainTopic")新建主文档的答复REM {notes only};@Command([Compose]; "Response")新建答复viewname := @Subset(@ViewTitle; -1);@SetProfileField("tmpProfile"; "viewtitle"; viewname);@PostedCommand([Compose];"Response")新建答复的答复@PostedCommand([Compose];"ResponseToResponse")父文档预览REM {notes only};@Command([ShowHideParentPreview])搜索REM {Web only};@Command([ViewShowSearchBar])转发@Command([MailForward])作为书签转发@Command([Compose]; @MailDbName; "Bookmark")移至废纸篓@Command([MoveToTrash])清空废纸篓@Command([EmptyTrash])新建文件夹@Command([CreateFolder])或var pathname = (window.location.pathname);window.open(pathname.substring(0,(stIndexOf('.nsf')+5))+'F olderCreate?OpenForm','Folder','scrollbars,screenX=150,screenY=200,wi dth=500,height=280');删除文件夹var pathname = (window.location.pathname);window.open(pathname.substring(0,(stIndexOf('.nsf')+5))+'F olderRemove?OpenForm','Folder','scrollbars,screenX=150,screenY=200,wi dth=500,height=250');移入文件夹@If(!@IsAvailable(form); @Return(@Prompt([Ok]; "警告"; "您必须先选择一个文档。
script标签的用法
script标签的用法一、script标签的基本用法1. 在HTML中插入JavaScript代码在HTML中使用script标签可以插入JavaScript代码。
可以将script标签放置在HTML文件的<head>或<body>标签中，通常将其放置在<body>标签的底部，以确保页面的其他内容能够加载完毕后再加载JavaScript代码。
例如：<!DOCTYPE html><html><head><title>Script标签的用法</title><script>// JavaScript代码function sayHello() {console.log("Hello, World!");}</script></head><body><h1>Script标签的用法</h1><button onclick="sayHello()">点击按钮</button></body></html>在上述代码中，<script>标签中的JavaScript代码定义了一个名为sayHello的函数，当点击按钮时会调用该函数，在控制台输出”Hello, World!“。
2. 引入外部JavaScript文件除了在HTML中直接插入JavaScript代码，还可以通过script标签引入外部的JavaScript文件。
这种方式有助于将代码逻辑和HTML内容分离，使代码更易于维护和管理。
例如，假设有一个名为script.js的外部JavaScript文件，可以通过以下方式在HTML中引入：<!DOCTYPE html><html><head><title>Script标签的用法</title><script src="script.js"></script></head><body><h1>Script标签的用法</h1><button onclick="sayHello()">点击按钮</button></body></html>上述代码中，<script>标签的src属性指定了外部的JavaScript文件路径，浏览器会根据该路径加载并执行JavaScript代码。
lotus script 操纵word文档
Office 文档集数据库是以嵌入对象的方法嵌入word文档的,该文档在body域中,发送传真时,页眉、页脚发不出来,其他格式能正常发出来.而且可以做到不发传真封面，另外，这种方式也可以避免附件方式那样发出来还会出现一个附件图标，故现在的任务是如何往该文档中写内容了。
往该文档中写内容，有两种方式：一种是用VB写一个DLL，有关word文档的操作，包括插入一个表格、插入一个字符串、插页眉等等。
这些函数都放在Dll中，然后被lotus script调用。
另一种方式是用lotusscript 直接操纵该嵌入文档，但操纵嵌入文档的lotusscript语法与VB语法差异很大。
所能获得的例子代码和帮助都是VB语法，只能从lotusscript提取的ole对象库中去察看个函数的语法，至于个函数中的参数的意义只能从msdn中获得，而msdn中对参数的讲解也不是很详细，所有VB常量在lotusscript中没有定义，只能半猜半试的直接使用数值。
下面的例子是lotus script 操纵word文档：'获取嵌入文档的句丙Set thisdoc = source.getobject("oleobject"'设置该文档的页面设置的左边距为20个单位(象素)With thisdoc.pagesetup.leftmargin = 20End With'插入页眉(由于真正的页眉在传真时无法显示,这里的页眉是模拟的)'插入一幅图Set thispicture = thisdoc.shapes.Addpicture("d:\学习\cassiatb.jpg"'设置文字的插入点thisrangeSet thisrange = thisdoc.range(1,1)pageheadstring = "CAISSA Touristic GmbH" & Chr(10) & "HAMBURG·BEIJING·SHANGHAI·BARCELONA" & Chr(10) &Chr(10) & Chr(10)'插入一段文字:pageheadstringthisrange.insertbefore (pageheadstring)'获取一段文字:从字符1到24Set thisrange = thisdoc.range(1,24)'设置该段文字的属性:With thisrange.bold = True '加粗.ParagraphFormat.Alignment = 1'wdAlignParagraphCenter 行居中.font.size = 20 '字体大小为20End WithSet thisrange = thisdoc.range(25,59)With thisrange.bold = True.ParagraphFormat.Alignment = 1'wdAlignParagraphCenter.font.size = 16End With'thispicture.wrapformat.side = wdwrapright'设置图像属性With thispicture.wrapformat '环绕方式.type = wdwrappicture '类型为picture.side = wdwrapright '文字右环绕End With。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
LotusScript 是完全面向对象的编程语言。
它通过预定义的类与 Domino 接口。
Domino 监控用户代码的编译和加载，并且自动包含 Domino 的类定义。
访问现有的对象最好使用 LotusScript，例如：根据其他文档的值来更改一个文档中的值。
LotusScript 提供了一些公式没有的功能，例如：操作数据库存取控制列表 (ACL) 的能力。
写script关键是取对象，查看对象的属性，所以你要学会看notes提供的Script帮助。
下面是我收集的一些script例子。
一般是比较技巧的程序，要学习一般script编写，请下载lotusScript学习库！LotusScript 是完全面向对象的编程语言。
它通过预定义的类与 Domino 接口。
Domino 监控用户代码的编译和加载，并且自动包含 Domino 的类定义。
访问现有的对象最好使用 LotusScript，例如：根据其他文档的值来更改一个文档中的值。
LotusScript 提供了一些公式没有的功能，例如：操作数据库存取控制列表 (ACL) 的能力。
写script关键是取对象，查看对象的属性，所以你要学会看notes提供的Script帮助。
下面是我收集的一些script例子。
一般是比较技巧的程序，要学习一般script编写，请下载lotusScript学习库！怎样判断视图中没有文档？set doc = vw.getfirstdocument()if doc is nothing thenend if如何将查询结果放到一个文件夹里？下面是将搜索结果放到名叫newfolder的文件夹中，并跳转到该文件夹上Sub Click(Source As Button)Dim docs As notesdocumentcollectionDim doc As notesdocument...........q=doc.query(0)Set docs = db.ftsearch(q, 0)Call docs.PutAllInFolder( "newfolder" )Call w.OpenDatabase( "","","newfolder")End Sub如何删掉数据库中所有私有视图Dim session As New notessessionDim db As notesdatabaseDim doc As notesdocumentSet db=session.currentdatabaseForall i In db.viewsSet doc=db.getDocumentByUNID(v.universalID)' 这个地方视图当作文档来处理，以便取到视图的一些属性。
viewflag=doc.getItemvalue("$flags")If viewflag(0)="pYV" Then' 视图属性中$flags为"pYV"的是私有视图。
Call i.removeEnd IfEnd Forall如何在Notes中调用ODBC数据源中的进程？下面是一个利用ODBC调用access数据库（资料库）的script代码Dim session As New NotesSessionDim con As New ODBCConnectionDim qry As New ODBCQueryDim result As New ODBCResultSetSet qry.Connection = conSet result.Query = qrycon.ConnectTo("资料库")qry.SQL = "SELECT * FROM 资料库"result.ExecuteIf result.IsResultSetAvailable ThenDoresult.NextRowid=result.GetValue("ID",id)Loop Until result.IsEndOfDataresult.Close(DB_CLOSE)ElseMessagebox "Cannot get result set for AssetData"Exit SubEnd Ifcon.DisconnectEnd Sub从后台刷新当前文档？将当前文档先关闭后再打开set doc=uidoc.document......call uidoc.save()call uidoc.close()set uidoc=ws.editdocument(doc)获得当前视图中选择了的文档？可以用 Notesdatabase 的 Unprocesseddocuments 属性。
Dim session As New notessessionDim db As notesdatabaseDim collection As notesdocumentcollectionSet db = session.currentdatabaseSet collection = db.UnprocessedDocuments Unprocesseddocuments 其实很有用的notes和Excel交换数据Dim session As New NotesSessionDim db As NotesDatabaseDim view As NotesViewDim doc As NotesDocumentDim excelApplication As VariantDim excelWorkbook As VariantDim excelSheet As VariantDim i As IntegerSet excelApplication = CreateObject("Excel.Application") excelApplication.Visible = TrueSet excelWorkbook = excelApplication.Workbooks.AddSet excelSheet = excelWorkbook.Worksheets("Sheet1") excelSheet.Cells(1,1).Value = "姓名"excelSheet.Cells(1,2).Value = "年龄"i = 1Set db = session.CurrentDatabaseSet view = db.GetView("abc")Set doc = view.GetFirstDocumentWhile Not(doc Is Nothing)i = i + 1excelSheet.Cells(i,1).Value = doc.ClassCategories(0) excelSheet.Cells(i,2).Value = doc.Subject(0)Set doc = view.GetNextDocument(doc)WendexcelSheet.Columns("A:B").SelectexcelSheet.Columns("A:B").EntireColumn.AutoFitexcelWorkbook.SaveAs("Script 内容")excelApplication.QuitSet excelApplication = Nothing在视图中怎样历遍所有的文档？Dim db As New NotesDatabase( "Ankara", "current\projects.nsf" )Dim view As NotesViewDim doc As NotesDocumentSet view = db.GetView( "Open\By Due Date" )Set doc = view.GetFirstDocumentWhile Not ( doc Is Nothing )....................Set doc = view.GetNextDocument( doc )Wend在scipt中如何调用公式例如我们想要取服务器名的普通名，在script中用@name() ,假设server变量以取到服务器名称在script中用Evaluate可以运行公式，如：servername=Evaluate("@name([CN];server)")怎样用script代理取到CGI变量Dim session As New NotesSessionDim doc As NotesDocumentSet doc = session.DocumentContextMessagebox "User = " + doc.Remote_User(0)如何使用Win32API隐藏菜单呢?1. Declarations :Declare Function GetActiveWindow Lib "user32.dll" () As LongDeclare Function SetMenu Lib "user32.dll" ( Byval hmenu As Long, Byval newmenu As Long ) As Integer2.Sub HiddenMenu()Dim hwnd As Longhwnd = GetActiveWindow()Call SetMenu(hwnd,0)End Sub怎样判断一个RTF为空值Function IsRTFNull(rtfield As String) As IntegerOn Error Goto ErrhandleDim workspace As New NotesUIWorkspaceDim uidoc As NotesUIDocumentSet uidoc = workspace.CurrentDocumentcurrentfield = uidoc.CurrentFieldCall uidoc.GotoField(rtfield)Call uidoc.SelectAllCall uidoc.DeselectAllIf currentfield <> "" ThenCall uidoc.GotoField(currentfield)End IfIsRTFNull = FalseExit FunctionErrhandle:Select Case ErrCase 4407'the DeselectAll line generated an error message, indicating that the rich text field does not contain anythingIf currentfield <> "" ThenCall uidoc.GotoField(currentfield)End IfIsRTFNull = TrueExit FunctionCase Else'For any other error, force the same error to cause LotusScript to do the error handling Error ErrEnd SelectEnd Function怎样返回一个数据的类型DeclarationsClass ReturnObjPrivate m_stName As StringPrivate m_stType As StringProperty Get NameVal As StringNameVal = m_stName$End PropertyProperty Get TypeVal As StringTypeVal = m_stType$End PropertySub new( arg_stName$, arg_stType$ )m_stName = arg_stName$m_stType = arg_stTypeEnd SubEnd ClassFunction Test() As ReturnObjSet Test = New ReturnObj( "Name", "Type" )End FunctionInitializeDim varSet var = Test()Msgbox( Val )怎样判断一个文件目录是否存在If Dir$(dirName, ATTR_DIRECTORY) = ""Then 'Directory does not existElse'Directory does existEnd If怎样在lotusScript中运行代理Set s = CreateObject("Notes.NotesSession")Set db = s.GETDATABASE("", "db.nsf")Set a = db.GETAGENT("SomeAgent")Call s.SETENVIRONMENTVAR("AgentDocID", "ABCD") Call a.RUN怎样才能得到当前数据库的文件路径Public FunctionGetDatabasePath( db As Notesdatabase ) As String Dim position As Integerposition = Instr( db.FilePath, db.FileName )GetDatabasePath = Left( db.FilePath , position - 1 ) End Function怎样比较两个日期型的域mdate1V = document.DateField1(0)mdate2V = document.DateField2(0)If mdate1V < mdate2V ThenMsgBox "DATE 1 LESS THEN DATE 2"ElseMsgBox "DATE 2 LESS THEN OR EQUAL TO DATE 1"End If。