NONEXECUTABLE

Listing 1: Script to Flag Incoming Messages

Private Sub objInboxItems_ItemAdd(ByVal Item As Object)
	If Instr(Item.Body, "ASAP") > 0 Then
	Item.FlagRequest = "Respond"
	Item.FlagDueBy = Now() + 5
	Item.Save
	End If
End Sub