I am using the following to keep Outlook open until the outbox is empty.
Sub Close_Outlook()
'blueclaw-db(dot)com/read_email_access_outlook.htm
'for the PauseApp to work you must put this string at the top in the options compare section of the module.... Private Declare Sub AppSleep Lib...