Close Outlook automatically and save open items to drafts

Question

Hello
I have the following problem: some of my customers work with Outlook + POP3 (no Exchange Server) and from time to time an employee forgets to close Outlook after working hour. Because of the open PST-File I have problems with the backup (the open PST-File is
in use and therfore the backup fails). Now I have wrote a small script to kill the outlook process on every machine at 10 p.m. But the next day when the employee starts Outlook he gets an annoying message about the PST-File was not closed properly and he has
to wait up to 10 Minutes until Outlook starts. So my question: is there a tool or a script to close outlook properly?
Btw: I have already found some sripts to close outlook in a decent way BUT: if the user has an open New E-Mail Window open all the scripts I found where not able to handle this situation - this is because in that case Outlook asks whether you want to save the
open New Massage to Drafts or not (and Outlooks does not close until you press the YES, NO or CANCEL Button.
Here is one of the Script I found (AutoHotKey Script):
SetTitleMatchMode RegEx
IfWinExist .*Microsoft\sOutlook
WinClose .*Microsoft\sOutlook
ExitApp
This script works perfectly when no additional Outlook Item Window is open - Outlooks then closes properly and no problem arises with the PST-File. But as already mentioned when the user has a open New Item Window (e.g. new Mail he just started to compose)
Outlook does not close but asks the user what to do. What I need is a script or a program that answers automatically to the Outlook question dialog box "Do you want to save changes?" YES and then closes Outlook properly. The next Day the user will
find his new / unfinished Mail item in the drafts folder.
I have also found a small program called "Close Outlook" by Douglas J. Nakakihara. But this tool also fails when an open (new) Message Windows exists.
Any ideas?
Markus

Answer 1

This code works for me
I created a batch file CloseOL.bat to call the CloseOL.vbs.
Here's the code for the batch file:
@echo off
cscript "CloseOL.VBS"
:EXIT
And here's the code for CloseOL.vbs:
Dim oOL 'As Outlook.Application
Dim olkIns
Set oOL = CreateObject("Outlook.Application")
If oOL Is Nothing Then
    'no need to do anything, Outlook is not running
Else
    'Outlook running
    Do while oOL.Inspectors.Count <> 0
        For each olkIns in oOl.Inspectors
                olkIns.Close olSave
            Next
    Loop
    oOL.Session.Logoff
    oOL.Quit
End If
Set oOL = Nothing
Hope this helps