LOTUSACTION语句详解.doc

LOTUS ACTION语句详解 2007-06-12 14:481、NotesUIWorkspace用法使当前文档可编辑Sub Click(Source As Button) workspace As New NotesUIWorkspace Call workspace.EditDocument( True )End Sub使当前文档可编辑,然后把焦点移到body域中Sub Click(Source As Button)dim ws as new notesuiworkspacedim uidoc as notesuidocumentset uidoc=ws.editdocument(true)call uidoc.gotofield(body)End Sub2、notessession用法返回当前数据库下所有文档的总数dim s as notessessiondim db as notesdatabaseset db=s.currentdatabasedim collection as notesdocumentcollectiondim n as integerset collection=db.alldocumentsn=collection.count3、notesdocument用法判断文档中是否包含subject域dim doc as notesdocumentif doc.hasitem(subject) thenMessagebox(There is a Subject item on this document)elsemsgbox(There is no Subject item on this document)end if4、NotesView用法取得当前数据库的视图与标题Sub Click(Source As Button)dim s as notessessiondim db as notesdatabaseset db=s.currentdatabasedim view as notesviewset view=db.getview(v_all)if not view is nothing then messagebox()End Sub5、getfirstitem用法给Categories域添加Girls Boys and Toys值dim doc as notesdocumentdim item as notesitemset item=doc.getfirstitem(Categories)dim newvals(1 to 3) as stringnewvals(1)=girlsnewvals(2)=boysnewvals(3)=toyscall item.appendtotextlist(newvals)call doc.save(false,true)给Categories域添加shocks值dim doc as notesdocumentdim item as notesitemset item=doc.getfirstitem(Categories)call item.appendtotextlist(shocks)call doc.save(false,true)5、NotesRichTextItem的用法创建一个ProjectDescription 文本域，然后给它赋值dim doc as notesdocumentdim rtitem as notesrichtextitemset rtitem =new notesrichtextitem(doc,ProjectDescription)call rtitem.appendtext(test)call doc.save(false,true)把doca的拷贝到docbDim docA As NotesDocumentDim docB As NotesDocumentDim rtitem As NotesRichTextItem.set values of docA and docB.Set rtitem = New NotesRichTextItem _( docA, ProjectDescription )Call rtitem.AppendText _( Cartoon book for children ages 9-12 )Call rtitem.CopyItemToDocument( docB, )Call docA.Save( False, True )Call docB.Save( False, True )创建一个body邮件备忘录，然后用邮件的方式发送给Frank Glenneldim session as notessessiondim db as notesdatabaseset db=session.currentdatabasedim memo as notesdocumentdim rtitem as notesrichtextitemset rtitem=new notesrichtextitem(memo,body)call rtitem.appenddoclink(doc,db.title)memo.subject=testcall memo.send(false,Frank Glennel)如果project域为richtext域，则增加新的内容dim doc as notesdocumentdim rtitem as variantset rtitem=doc.getfirstitem(project)if rtitem.type=richtext thencall rtitem.addnewline(1)call rtitem.appendtext(test)call doc.save(false,true)6、NotesUIDocument 的用法保存当前文档dim ws as new notesuiworkspacedim uidoc as notesuidocumnetset uidco=ws.currentdocumencall uidoc.save根据status状态不同，给sendto域赋不同值Sub Querysave(Source As Notesuidocument, Continue As Variant) s = source.FieldGetText( Status ) Select Case s Case New : Call source.FieldSetText _ ( SendTo, source.FieldGetText( Manager ) ) Case Approved : Call source.FieldSetText _ ( SendTo, source.FieldGetText( HRContact ) ) Case Rejected : Call source.FieldSetText _ ( SendTo, source.FieldGetText( Employee ) ) End Select Call source.SendEnd Sub7、messagebox的用法返回当前通讯录文件夹下所有通讯录的名称与路径Sub Click(Source As Button)i%=Messagebox(您真的要升级吗?,289,版本升级)Dim session As New NotesSessionDim db As NotesDatabaseaddressBooks = session.Ad