如何访问个人邮箱中的未读邮件

如何访问个人邮箱中的未读邮件

squallzhong    Domino 开发      Domino   Lotusscript  

 

01 Dim session As New NotesSession
02 Dim db As NotesDatabase
03 Dim view As NotesView
04 Dim vc As NotesViewEntryCollection
05
06 'you can choose other db, including mail db
07 Set db = session.CurrentDatabase
08
09 'choose the right view
10 Set view = db.GetView("By Category")
11 'Function of GetAllUnreadEntries returns a collection contains all unread entries in the view.Correspondingly, there is a function of 'GetAllReadEntries in lotutscript
12 Set vc = view.GetAllUnreadEntries()
13
14 'you can iterate the collection and do whatever you like.
15 Call vc.PutAllInfolder("To Be Read")