Почтовые вопросы.2

[Akupaka]

а что неправильно возвращает кол-во getUnreadInDB или getUnreadInView?..
если прямо тут count = IDEntries(hIDTable), то тогда ищи-свищи... наверное...

 

[yos]

	If (unreadArray(0) = "") Then
Print "There are 0 unread docs in your inbox"
Else
Print "There are " & (Ubound(unreadArray) + 1) & " unread docs in your inbox"
End If

а вот так и использую как в каментах в примере указано

 

[Akupaka]

а если этот код объединить?

		count = IDEntries(hIDTable)
If (count = 0) Then
Goto freeIDTable
Else
'** redim the return array to the proper size, but don't let it get
'** too big
If (count > 32767) Then
Redim returnArray(32767) As String
Else
Redim returnArray(count) As String
End If
count = 0
End If

'** get the NoteIDs in the table and put them in the array
firstFlag = True
Do While IDScan(hIDTable, firstFlag, noteID) > 0
returnArray(count) = ConvertNoteID(noteID)
firstFlag = False
count = count + 1
If (count > Ubound(returnArray)) Then
Exit Do
End If
Loop

получим вот такое, будет работать?..

		call IDEntries(hIDTable)
count = 0
'** get the NoteIDs in the table and put them in the array
firstFlag = True
Do While IDScan(hIDTable, firstFlag, noteID) > 0
if firstFlag then
redim returnArray (0 to 0)
else
redim preserve returnArray (lbound(returnArray) to ubound(returnArray) + 1)
end if
returnArray(ubound(returnArray)) = ConvertNoteID(noteID)
firstFlag = False
count = count + 1
If (count >= 32767) Then ' ну или любое другое достаточное ограничение установить
Exit Do
End If
Loop
Msgbox cstr(count)

 

[yos]

Akupaka, сейчас попробую.

В общем "падает" на строке:

 call IDEntries(hIDTable)

 

[Akupaka]

ну, а предыдущую проверку таблицы на ноль не забыл?.. (hIDTable <> 0)