原创力文档- 1、本文档共5页，可阅读全部内容。
- 2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
查看更多
LOTUS程序精选
LOTUS程序精选 1、用程序实现星期的转换： Dim workspace As New NotesUIWorkspace Dim uidoc As NotesUIDocument Dim doc As NotesDocument Dim dateComposedObj As New NotesDateTime( Set uidoc = workspace.CurrentDocument Set doc = uidoc.Document dateComposed = doc.DateComposed thisWeekday = Weekday(dateComposed(0)) Select Case thisWeekday Case 1 : stringWeekday = Sunday Case 2 : stringWeekday = Monday Case 3 : stringWeekday = Tuesday Case 4 : stringWeekday = Wednesday Case 5 : stringWeekday = Thursday Case 6 : stringWeekday = Friday Case 7 : stringWeekday = Saturday End Select Messagebox (This document was composed on a stringWeekday) 2、利用程序增加角色： Dim db As New NotesDatabase (, Inputbox(Name of database) Dim dbACL As NotesACL Dim dbACLEntry As NotesACLEntry Set dbACL = db.ACL ename = Inputbox(Name of ACL entry? Set dbACLEntry = dbACL.GetEntry(ename) Call dbACL.AddRole(Role Call dbACLEntry.EnableRole(Role dbRoles = dbACLEntry.Roles If Not(Isempty(dbRoles)) Then Forall dbRole In dbRoles Messagebox Role dbRole End Forall Else Messagebox No roles for this ACL entry End If Call dbACL.save 3、用程序删除私有视图： Dim session As New notessession Dim db As notesdatabase Dim doc As notesdocument Set db=session.currentdatabase Forall i In db.views Set doc=db.getDocumentByUNID(v.universalID) viewflag=doc.getItemvalue($flags If viewflag(0)=pYV Then Call i.remove End If End Forall 4、用程序打开视图: Sub Postopen(Source As Notesuidatabase) Call Source.OpenView(按时间 End Sub 5、利用程序选择运行指定代理： Dim session As New NotesSession Dim db As NotesDatabase Dim theAgent As NotesAgent Dim agentString As String Set db = session.CurrentDatabase Forall agent In db.Agents agentString = agentString Chr(10) agent.Name End Forall Messagebox agentString,, Agents Set theAgent = db.GetAgent(Inputbox(请输入须运行的代理?) If Not(theAgent Is Nothing) Then Call theAgent.Run Else Messagebox 没有选择代理！ End If 6、显示数据库的管理者： Dim session As New NotesSession Dim db As NotesDatabase Dim db2 As NotesDatabase Dim dc As NotesDocumentCollection Di
文档评论（0）