(Код расположен в форме с кнопкой CommandButton1.)

Public WithEvents oItems As Outlook.Items

Private Sub CommandButton1_Click()
' запускаем Outlook
Dim oOutlook As New Outlook.Application

' Очень важно: объясняем, что события oItems - это события папки Inbox в Outlook
Set oItems = oOutlook.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Items

'Дальше просто запускаем прием почты со всех учетных записей
Dim oNameSpace As Outlook.Namespace
Set oNameSpace = oOutlook.GetNamespace("MAPI")
oNameSpace.SyncObjects("Все учетные записи").Start

End Sub

'… и ловим события появления нового сообщения

Private Sub oItems_ItemAdd(ByVal Item As Object)

MsgBox Item.To & " " & Item.Subject, , "Список новых писем "
End Sub


End Sub

Public Function SendReceiveAll() As Boolean

Dim oExplorer As Outlook.Explorer
Dim olNS As Outlook.NameSpace
Dim olFolder As Outlook.MAPIFolder
Dim oCtl As Office.CommandBarControl
Dim oPop As Office.CommandBarPopup
Dim oNS As Outlook.NameSpace
Dim oCB As Office.CommandBar
Dim oOutlookApplication As Outlook.Application

On Error Resume Next

Set oOutlookApplication = GetObject(, "Outlook.Application")
If oOutlookApplication Is Nothing Then
Err.Clear
On Error GoTo ErrorHandler
Set oOutlookApplication = _
CreateObject("Outlook.Application")
Set olNS = oOutlookApplication.GetNamespace("MAPI")
Set olFolder = olNS.GetDefaultFolder(olFolderInbox)
Set oExplorer = olFolder.GetExplorer
End If

On Error GoTo ErrorHandler
Set oCB = _
oOutlookApplication.ActiveExplorer.CommandBars("Standard")

Set oCtl = oCB.Controls("Send/Receive") ' переписал как "Отправить и получить"
oCtl.Execute
SendReceiveAll = True

ErrorHandler:

End Function