OnDeliverMessage(oMessage as hMailServer.Message)
VB-script:
If oMessage.Size > 1000000 Then ' This message is to big. We should not ' deliver it. Result.Value = 1 Else ' Accept the message Result.Value = 0 End If