使用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（），我得到的对象不支持此属性或方法

Answer 1

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

返回