Как перезапустить Microsoft Outlook макросом? - VB

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

Добрый день!
Третий день ломаю голову: возможен ли перезапуск Outlook макросом или как инициализировать запуск "Обновить папку". Сколько ищу, не могу найти однозначный ответ, по макросам в Outlook информация в инете скудна, а макрорекордера как в exel нет . Кто-нибудь может дать ответ? Поясню для чего это нужно: несколько раз в месяц у нас на предприятии проводятся регламентные работы (в том числе и в выходные дни), после чего почта перестает работать до последующего перезапуска Outlook или нажатия кнопки "Обновить папку". Все бы ничего, но в Outlook есть другой макрос который при получении почты от определенных лиц сажает вложенные файлы в сетевую папку меняя их названия. Соответственно, если почта не обновлена, и на рабочем месте никого нет, то и данные на сетевом ресурсе отсутствуют.
P.S. Очень прошу соблюдать сию последовательность Ваших действий относительно меня:
Прежде чем меня убить/удалить тему прошу дать возможность увидеть ответ....

Решение задачи: «Как перезапустить Microsoft Outlook макросом?»

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

                            Public Sub test()
Dim olSycs As SyncObjects
Dim j As Long
Set olSycs = Session.SyncObjects
For j = 1 To olSycs.Count
    olSycs.Item(j).Start
Next j
Cleanup:
Set olSycs = Nothing

End Sub

                        