package MyMail
@ISA = qw()

sub SMTPServer
sub SMTPServer        { my($this)=
return $this->{SMTPServer};

sub SetSMTPServer
sub SetSMTPServer     { my($this,$s)=
return $this->{SMTPServer}=$s;

sub SendMailMethod
sub SendMailMethod    { my($this)=
return $this->{SendMailMethod};

sub SetSendMailMethod
sub SetSendMailMethod { my($this,$m)=
return $this->{SendMailMethod}=$m;

sub MailerName
sub MailerName        { my($this)=
return $this->{MailerName};

sub SetMailerName
sub SetMailerName     { my($this,$m)=
return $this->{MailerName}=$m;

sub BEGIN

sub new
my ($module, $sendmethod, $smtpserver, $mailername) = @_;
return $this;

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

sub SendMailAttached
my ($this, $To, $Cc, $Bcc, $From, $Subject, $Body, $AttachedFile, $charset) = @_;
return $msg->send();

sub SendMail
my ($this, $to, $cc, $bcc, $from, $subject, $body, $charset) = @_;
return 0;
return 1;

sub SendMail2
my ($this, $to, $cc, $from, $subject, $body, $charset) = @_;
return 0;
return 1;

sub SendMail3