lotus 编程学习笔记.docVIP

lotus 编程学习笔记 用NotesDatabase.search方法来统计符合条件的文档个数 ------------- Sub Click(Source As Button) Dim session As New NotesSession Dim db As NotesDatabase Dim collection As NotesDocumentCollection 要搜索的文档的起始时间 Dim dateTime As New NotesDateTime(01/01/96) Set db = session.CurrentDatabase Search 的第一个参数是用公式语言表达的搜索条件 Set collection = db.Search(Form = qj,dateTime,0) Messagebox collection.Count End Sub 提示邮箱信息的代码 ------------------------------ Dim s As New NotesSession Dim db As NotesDatabase Dim uname As String Dim mailfileloc As Variant Const MB_OK = 1 Co