TRejectEvent = procedure(Sender: TSimpleMail; const Recipient, Reason: string) of object
Execute.SimpleMail