Господа, приветствую.

Есть задача - считывать определенные письма из Outlook. Из вложений в письмах считывать информацию (в pdf файлах) и сохранять данные в базу + создавать письма автоматом на те данные, что приходят из писем.
Ну и так как это действие долгоиграющее - прогрессбар для отрисовки сколько всего писем будет отработано, сколько информации в них, сколько отработано...

Весь процесс сделан, работал. Но попался комп, на котором есть проблема.
Комп значительно мощнее моего и многих, на которых пробовалось. Даже на виртуалке у себя пробовал.
Процесс:
Выборку нужных писем - предварительную, для значений прогрессбара и сохранение нужных писем в коллекцию.
Сохранение и конвертацию pdf в txt. (тоже не с первого раза нашел конвертер)
Проблема:
Часто(случайным образом, систему не смог вычислить) - после отработки конвертации - при попытке считать сам файл txt дает пустую строку. Дальше процесс "ложится".
Причем может первое письмо не обработать(считать сконвертированный txt), а может и где то в середине.
При проверке кода с точкой останова - все ок. Все везде считывается. При любом количестве писем.

Понимаю, что процесс идет асинхронно. Кто то за кем то не успевает.

Пробовал проверять наличие файла через

If Dir(strNameFile, vbDirectory) <> "" Then

и потом (к сожалению код не сохранил, но принцип этот)

FileName = "C:\1\1.txt"

f = FreeFile

Open FileName For Input As f
Do While Not EOF(f)
  FileTxt = Input(1, #f)
  Debug.Print UsefulTxt
Loop
Close #f

Показывает, что файл есть, а ничего не считывает с файла, точнее данные файла=""

Пробовал проверять через FSO.

Set FSO = CreateObject("Scripting.FileSystemObject")
If FSO.FileExists(strNameFile) Then
    Set FSTR = FSO.OpenTextFile(strNameFile)
    BodyTxt = FSTR.ReadAll
    FSTR.Close
    Set FSTR = Nothing
End If

Проблема остается.


Пробовал ставить задержку до считывания

For aa = 1 To 100
        For ee = 1 To 110
        If Dir(strMyFileNameTo, vbDirectory) <> "" Then
            
        End If
    Next ee
Next aa

помогает, но для каждого компа нужно подбирать свое значение задержки. Да и процесс удлиняет на много. Понятно что не климатит.
Да и если чуть перебрал в подборе - неприятное подвешивание самого акса, не системы.
Кстати, заметил, что процесс берет не больше 25% от процессора, правда по мере обработки писем - растет занятая память оперативы компа. Правда как то сразу не догадался проверить (сейчас не могу) - что съедает память. но в объем памяти - не упираюсь.

Переделал на построчное считывание файла txt (через клас), не помогло.
Запихнул проверку наличия файла перед построчным считыванием(тут на форуме нашел)

While Dir(strNameFile) = ""
    a = a + 1
    If a = 10000 Then ' вставил иначе можно от сюда никогда и не выйти
        GoTo ReadTXT_Error
    End If
    DoEvents
Wend

проблема может улучшилась, но не решилась полностью.

Пробовал даже сохранение и конвертацию вставлять в начало процесса - в момент выборки писем, а считывать
текстовый файл по мере обработки выбранных писем. Не помогло...
Может вопрос в том, что в этом процессе идет обращение к нескольким "сторонним приложениям"?
Сначала Outloook(выборка и сохранение вложений), потом конвертер( из pdf в txt), потом запись данных в базу, потом опять Outlook(создание писем, событий)

Кучу написал, уж простите, но это чтобы было видно что и как делал. Чтобы не повторяться с вариантами решения проблемы

Прошу помощи в вопросе:
Как мне побороть это не успевание или неправильное считывание конвертированного файла?

http://www.sql.ru/forum/1184155/schityvanie-tekstovyh-faylov-v-cikle