Получайте непрочитанные письма в заметках лотоса с помощью vbscript

Question

Как получить все непрочитанные письма из определенного представления (например, $ Inbox) базы данных Lotus Notes с помощью vbscript?

    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 в NotesView классе .Результат будет возвращен как NotesViewEntryCollection объект.