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

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")​​​​ ​​