Disable Save

[Joel]

In my outlook task form, I want to disable the save feature if this is true.
How do I do this. I know the command item.save, but item.readonly doesn't
seem to work?

Function Item_Open(ByVal Name)

If Item.UserProperties("DrawingStage") = "New" Then

item.readonly or disable the save feature??????

End If

End Function


Thanks for your help
-Joel

 

[Sue Mosher [MVP-Outlook]]

Set a module-level variable and check the value of that variable when the
Write event fires:

Dim blnDontSave

Function Item_Open()
If Item.UserProperties("DrawingStage") = "New" Then
blnDontSave = True
End If
End Function

Function Item_Write()
Item_Write = (Not blnDontSave)
End Function

 

[Joel]

Sue,

Thank you! That was brilliant! Simple, but it helped me more than you'll
know!

-Joel