Описание:

У меня есть макрос Outlook, который просматривает выбранные письма в папке и записывает некоторую информацию в файл .csv. Он прекрасно работает до 250, прежде чем потерпеть неудачу. Вот часть кода:

Open strSaveAsFilename For Append As #1

CountVar = 0
For Each objItem In Application.ActiveExplorer.Selection
    DoEvents
    If objItem.VotingResponse <> "" Then
        CountVar = CountVar + 1
        Debug.Print "   " & CountVar & ". " & objItem.SenderName
        Print #1,  & objItem.SenderName & "," &  objItem.VotingResponse
    Else
        CountVar = CountVar + 1
        Debug.Print "   " & CountVar & ". " & "Moving email from: " & Chr(34) & objItem.SenderName & Chr(34) & " to: Special Cases sub-folder"
        objItem.Move CurrentFolderVar.Folders("Special Cases")
    End If
Next
Close #1

проблема

После того, как этот код пробегает 250 электронных писем, появляется следующий скриншот:

http://i.stack.imgur.com/yt9P8.jpg

Я попытался добавить функцию ожидания, чтобы дать серверу отдохнуть, чтобы я не запрашивал его так быстро, но в тот же момент я получаю ту же ошибку.