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

01Dim session As New NotesSession

02Dim db As NotesDatabase

03Dim view As NotesView

04Dim vc As NotesViewEntryCollection

05 

06'you can choose other db, including mail db

07Set db = session.CurrentDatabase

08 

09'choose the right view

10Set 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

12Set vc = view.GetAllUnreadEntries()

13 

14'you can iterate the collection and do whatever you like.

15Call vc.PutAllInfolder("To Be Read")