UnprocessedDocuments属性

代理：

Sub Initialize
 Dim session As New NotesSession
 Dim db As NotesDatabase
 Dim collection As NotesDocumentCollection
 Dim doc As NotesDocument
 Dim i As Integer
 i=0
 Set db = session.CurrentDatabase
 Set collection = db.UnprocessedDocuments
 Set doc = collection.GetFirstDocument()

  While Not(doc Is Nothing)
  doc.DBPath="public/app_ReleasePass.nsf"
  Call doc.Save(True,False)
  Set doc = collection.GetNextDocument(doc)
 Wend

 Exit Sub 
End Sub