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

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

 

show source

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