We have had our Email Client updated to Outlook 2003 from XP recently, and one of the changes is that it will sometimes swicth to offline. This happens when there are network problems here and Outlook can't connect to the Exchange Server, it turns itself offline, but will not go back online. This results in me getting calls from users who haven't had emails for hours, which although is good for them, is not good for business!!

What I was thinking (as I use macros in my Outlook for various things such as confirm I want to keep sent mail etc) is to get some VB to pick up the event when Outlook goes offline, and push up a message box informing the user that this has occurred, and directing their attention to the bottom right hand corner of Outlook where they can toggle the offline back to Online.

I understand how to use WithEvents to catch when mails come into the deleted folder, such as below
<pre>Option Explicit
Public WithEvents fldrDel As Outlook.Items

Private Sub Application_Startup()
Set fldrDel = Outlook.Session.GetDefaultFolder(olFolderDeletedIt ems).Items
End Sub

Private Sub fldrDel_ItemAdd(ByVal Item As Object)
Dim lsMessage As String
lsMessage = "Delete?"
If MsgBox(lsMessage, vbYesNo) = vbYes Then
End If
End Sub

Is there some object I can use to catch when Outlook switches itself Offline?