Как макросом эмулировать нажатие кнопки "Отправить и получить" в Outlook - VB

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

Как макросом эмулировать нажатие кнопки "Отправить и получить" в Outlook? Нужно принудительно доставить новую почту перед выполнением макроса. Какой командой это делается? Заранее спасибо за помощь.

Решение задачи: «Как макросом эмулировать нажатие кнопки "Отправить и получить" в Outlook»

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

                            <font color="blue">Public</font> <font color="blue">Sub</font> Sync()
	<font color="blue">Dim</font> nsp <font color="blue">As</font> Outlook.<font color="blue">NameSpace</font>
	<font color="blue">Dim</font> sycs <font color="blue">As</font> Outlook.SyncObjects
	<font color="blue">Dim</font> syc <font color="blue">As</font> Outlook.SyncObject
	<font color="blue">Dim</font> i <font color="blue">As</font> <font color="blue">Integer</font>
	<font color="blue">Dim</font> strPrompt <font color="blue">As</font> <font color="blue">Integer</font>
	<font color="blue">Set</font> nsp = Application.GetNamespace(<font color="teal">"MAPI"</font>)
	<font color="blue">Set</font> sycs = nsp.SyncObjects
	<font color="blue">For</font> i = <font color="darkblue"><b>1</b></font> <font color="blue">To</font> sycs.Count
		<font color="blue">Set</font> syc = sycs.Item(i)
		strPrompt = MsgBox(<font color="teal">"Do you wish to synchronize "</font> & syc.<font color="blue">Name</font> &<font color="teal">"?"</font>, vbYesNo)
		<font color="blue">If</font> strPrompt = vbYes <font color="blue">Then</font>
			syc.Start
		<font color="blue">End</font> <font color="blue">If</font>
	<font color="blue">Next</font>
<font color="blue">End</font> <font color="blue">Sub</font>

                        