先得到视图,然后在得到视图的某一个分类。然后在分类中循环取得文档
视图$all第一列的值为 @Text(@Date(@Created)),
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim doc As NotesDocument
Dim nav As NotesViewNavigator
Dim entry As NotesViewEntry
Set db = session.CurrentDatabase
Set view = db.getView("$All")
Set nav = view.CreateViewNavFromCategory(Format(Cstr(Date),"yyyy-mm-dd"))
Set entry = nav.getfirst
While Not entry Is Nothing
Set doc = entry.document
'Msgbox doc.form(0)
doc.form="maintopic2"
Call doc.Save( True, True )
Set entry = nav.getNext(entry)
Wend
视图$all第一列的值为 @Text(@Date(@Created)),
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim doc As NotesDocument
Dim nav As NotesViewNavigator
Dim entry As NotesViewEntry
Set db = session.CurrentDatabase
Set view = db.getView("$All")
Set nav = view.CreateViewNavFromCategory(Format(Cstr(Date),"yyyy-mm-dd"))
Set entry = nav.getfirst
While Not entry Is Nothing
Set doc = entry.document
'Msgbox doc.form(0)
doc.form="maintopic2"
Call doc.Save( True, True )
Set entry = nav.getNext(entry)
Wend