Conflict Error Procedure

[Joel]

I use these procedures to in trying to avoid conflict errors for a Public
Task Folder. I still get the conflict errors every once in a while. Do you
see a problem with my logic here?

'--------------------------------------------------------------------------
Function Item_Open(ByVal Name)

On Error Resume Next

if Item.UserProperties("Oppen") = "" then
Item.UserProperties("Oppen") = "Open"
Item.Save
else
Item.UserProperties("Oppen2") = "DO NOT SAVE WHEN EXITING!"
end if

End Function
'--------------------------------------------------------------------------
Function Item_Write()

On Error Resume Next

if Item.UserProperties("Oppen2") = "DO NOT SAVE WHEN EXITING!" then
Item_Write = False
end if

End Function
'--------------------------------------------------------------------------
Function Item_Close()

On Error Resume Next

if Item.UserProperties("Oppen2") = "" then
Item.UserProperties("Oppen") = ""
Item.Save
End If

End Function
'--------------------------------------------------------------------------