The only solution I can think of involves running some VBA that triggers the "Send/Receive" functionality every x minutes.
Based on this answer from Stack Overflow, this answer on MSDN and a few very minor tweaks I think this solution should work.
Place the following code in the
ThisOutlookSession module (Tools -> Macros -> VB Editor):
Private Sub Application_Quit()
If TimerID <> 0 Then Call DeactivateTimer 'Turn off timer upon quitting **VERY IMPORTANT**
Private Sub Application_Startup()
Call ActivateTimer(30) 'Set timer to go off every 30 minutes
And the following code in a new VBA module:
Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerfunc As Long) As Long
Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
Public TimerID As Long 'Need a timer ID to eventually turn off the timer. If the timer ID <> 0 then the timer is running
Public Sub ActivateTimer(ByVal nMinutes As Long)
nMinutes = nMinutes * 1000 * 60 'The SetTimer call accepts milliseconds, so convert to minutes
If TimerID <> 0 Then Call DeactivateTimer 'Check to see if timer is running before call to SetTimer
TimerID = SetTimer(0, 0, nMinutes, AddressOf TriggerTimer)
If TimerID = 0 Then
MsgBox "The timer failed to activate. Checking of email will not happen."
Public Sub DeactivateTimer()
Dim lSuccess As Long
lSuccess = KillTimer(0, TimerID)
If lSuccess = 0 Then
MsgBox "The timer failed to deactivate."
TimerID = 0
Public Sub TriggerTimer(ByVal hwnd As Long, ByVal uMsg As Long, ByVal idevent As Long, ByVal Systime As Long)
'keeps calling every X Minutes unless deactivated
If idevent = TimerID Then Call SyncOL
Public Sub SyncOL()
' Synchronizes (ie sends/receives) OL folders.
' Ref: http://msdn.microsoft.com/en-us/library/ff863925.aspx
Dim appOL As Outlook.Application, objNsp As Outlook.NameSpace
Dim colSyc As Outlook.SyncObjects, objSyc As Outlook.SyncObject
Dim i As Integer
On Error GoTo SyncOL_Err
' Use late binding to avoid the "Reference" issue.
If isAppThere("Outlook.Application") = False Then
Set appOL = CreateObject("Outlook.Application") ' OL not open
Set appOL = GetObject(, "Outlook.Application") ' OL already open
Set objNsp = appOL.Application.GetNamespace("MAPI")
Set colSyc = objNsp.SyncObjects
For i = 1 To colSyc.Count
Set objSyc = colSyc.Item(i)
' Debug.Print objSyc.Name
' Call MsgBox("Outlook synchronization initiated ...", vbInformation)
Set appOL = Nothing: Set objNsp = Nothing: Set colSyc = Nothing: Set objSyc = Nothing
MsgBox "error=" & Err.Number & " " & Err.Description & " in SyncOL()"
Once up and running (and you've disable push or any existing timers), then this code will run every 30 minutes and trigger a send and receive. Since I don't have Outlook connected to Exchange I cannot verify this actually works.