This VBScript example uses the Open event to display the "All Fields" page every time the item is opened.
Function Item_Open()
Item.GetInspector.SetCurrentFormPage "All Fields"
End Function
This VBScript example uses the Unread property to detect whether the item has been previously read. If it has, then it asks if the user wants to open it. If the user answers No, the return value is set to False to prevent the item from opening.
Function Item_Open()
If Item.Unread = False Then
myMsg = "Do you want to open this message again?"
If MsgBox myMsg,4) = 6 Then
Item_Open = True
Else
Item_Open = False
End If
End If
End Function