Запуск макроса в Outlook через некоторое время после старта - VBA

Формулировка задачи:

Здравствуйте. Есть макрос, который сортирует письма по папкам. Его необходимо запускать после того, как запущен outlook и пришли все письма. Пишу следующий код:

Sub SleepVB(Seconds)
' ожидание Seconds секунд
Dim Start
Start = Timer ' текущее время в секундах
Do While Timer < Start + Seconds
' обеспечивает параллельное выполнение других процессов
DoEvents
Loop
End Sub
 
Private Sub Application_Startup()
    SleepVB ("30")
    Call Sort
End Sub

В таком случае у меня получается, что макрос ждет 30 секунд затем запускает сортировку, и только потом получает письма. Как сделать так, чтобы сначала скачались письма, а затем запустился макрос?

Решение задачи: «Запуск макроса в Outlook через некоторое время после старта»

textual
                            Листинг программы 
                        

                            Private Sub Application_Startup()
Call Module1.TimerStart
End Sub
 
Public Sub NewMailSort()
'Код функции сортировки
End Sub
                        