使用vbscript在Lotus notes中获取未读邮件

Question

如何使用vbscript从Lotus Notes数据库的特定视图（例如$ Inbox）获取所有未读邮件？

    Set objNotesSession = CreateObject("Lotus.NotesSession")
    objNotesSession.Initialize(strPassword)
    Set objNotesdb = objNotesSession.GETDATABASE(strMailServer, 
                       strMailDBName) 
    If Not objNotesdb.IsOpen = True Then 
        Call objNotesdb.Open 
    End If
    Dim view
    Dim vec
    Set view = objNotesdb.GetView("($Drafts)")
    vec = view.GetAllUnreadEntries()

但是对于GetAllUnreadEntries（）我得到的Object不支持这个属性或方法

Answer 1

您可以使用GetAllUnreadEntries method中的NotesView class从收件箱中获取所有未读文档。结果将作为NotesViewEntryCollection object.返回