Sub Initialize Dim ss As New NotesSession Dim db As NotesDatabase Set db = ss.CurrentDatabase Dim view As NotesView Set view = db.GetView("(v_NotEndOf2Months)") view.AutoUpdate=False Dim doc As NotesDocument Di...(more)
当注册用户用户名格式为user/ou2/ou1/ou/o,那么使用企业通讯录,希望在公司层次结构中,很清晰显示出来。实例代理程序:%REM Agent 增加公司层次名称 Created 2011-12-18 by LILI Description: Comments for Agent%END REMOption PublicOption DeclareSub Initialize Dim se As...(more)
用户反映某些时候,Agent
Manager定时执行的代理程序,如果遇到相关的数据库正在被压缩,会报告这样的错误:2012/10/22 上午
12:28:57 AMgr: Unable to load agent document for'Agent Name' in 'Sample.NSF': Database is being Compacted;
Compact must finish before use...(more)
最近比较忙,没时间写日志,现在忙里偷闲赶快赶一篇. 代理内创建函数传递对象都有生命周期.如下代码:Sub Initialize Dim docTest As NotesDocument 'Set session = New NotesSession Set docTest = getDoc("test") MsgBox "函数外:" MsgBox docTest Is nothingEnd SubFunc...(more)