см. топик

вопрос: как программно получить почту ?
например: OutLook закрыт - программно загружаем его и программно получаем почту (т.к. автоматически при загрузке почта не подгружается), затем программно выгружаем его.

нашёл такой способ:
Public Sub SendReceiveNow()
Dim oCtl As Office.CommandBarControl
Dim oPop As Office.CommandBarPopup
Dim oCB As Office.CommandBar

'Use the Send/Receive on All Accounts action in the Tools
'menu to send the items from the Outbox, and receive new items
Set oCB = Application.ActiveExplorer.CommandBars("Menu Bar")
Set oPop = oCB.Controls("Tools")
Set oPop = oPop.Controls("Send/Receive")
Set oCtl = oPop.Controls("All Accounts")
oCtl.Execute

Set oCtl = Nothing
Set oPop = Nothing
Set oCB = Nothing
End Sub

есть ли ещё какие варианты ?

есть такой вариант получения почты:

Sub SendReceiveNowCorpMode()
Dim oCDO As MAPI.Session

Set oCDO = CreateObject("MAPI.Session")
oCDO.Logon "", "", False, False
oCDO.DeliverNow
oCDO.Logoff
Set oCDO = Nothing
End Sub

если на момент запуска процедуры запущен процесс OutLook то теоритически почта должна приниматься.

вопрос:
есть OutLook 2000 - на нём при запуске процедуры почта принимается, есть OutLook 2003 - на нём не принимается (т.е. при запуске процедуры в папке "входящие" не отображаются новые письма, предварительно присланные).
в чём могут быть сложности ? (на обоих OutLook настроено "проверять сообщения при подключении")

(оба OutLook настроены на MS Exchange Server)