package MyMailApplication
@ISA = qw()

sub BEGIN

sub new
my ($module, $app) = @_;
#	$this->SUPER::new(
return $this;

sub DESTROY
my $this = shift;
#	$this->SUPER::DESTROY(

sub IsValidEMailAddress
my ($App, $EMail) = @_;

sub CheckSendmail
my ($this, $sendmail) = @_;
return 1 if(!$this->pParams()->{SendMail});
return $this->{SendmailChecked} if(defined $this->{SendmailChecked});
return 1;
return 0;
return 1;

sub PrintMail
my ($this, $text) = @_;

sub SendMail
my ($this, $text, $sendmail, $TempPath, $PrintMail) = @_;
return -1;
return 1;
return -1;
return;
return -1;
return 1;