Disable Save

  • Thread starter Thread starter Joel
  • Start date Start date
J

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
 
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
 
Back
Top