в цикле пробегаюсь по всем письмам в папке и совершаю необходимые действия:

For Each itmTmp In Folder.Items
...
...
Next

Если в папке отсутствуют отчеты (письма от системного адм-ра: уведомление о доставке письма или о превышении размера вложения и тд) то все проходит "на ура". Если в папке содержится хотя бы один отчет, то вылетаем из цикла ( причем следующий код не помогает:

For Each itmTmp In Folder.Items
If itmTmp.Class = olMail Then
...
...
End If
Next

В чем дело ?