Suppress the save dialog, exceptions occur...

[KevinH]

I am trying to suppress the save dialog and cancel the save operation,
the following will throw an exception. Before the Olk2003 security patch
using Item.Close 1 would cancel the save, but now there isn't a way to
emulate this
behavior any ideas?
-------------------------------------
Option Explicit

'---------------------------------------------------------------
' FUNCTION: Item_Close
'---------------------------------------------------------------
Function Item_Close()
Item.Subject = Item.Subject + " - Modified"
If Not Item.Saved Then
'adding error handling will display the save
dialog
'On Error Resume Next
Item.Save
'On Error Goto 0
End If
Item_Close = True
End Function

'---------------------------------------------------------------
' FUNCTION: Item_Write
'---------------------------------------------------------------
Function Item_Write()
Item_Write = False
End Function