Ok I'm, an idiot:
In the eval it has to be :
my $sender = new Mail::Sender {smtp => "$smtp", from => "$admn"};
$sender->Open({
to => $admn,
subject => $subj
});
$sender->SendLineEnc($body);
$sender->Close();]
The Body function is for multipart messages.
Sorry for the inconvenience.
Dan
>
> eval {
> my $sender = new Mail::Sender {smtp => $smtp,
> from => $admn,to => $admn, subject => $subj};
> $sender->Body({
> ctype => 'text/plain',
> msg => $body
> });
> $sender->Close();
> };
> if($@ || $Mail::Sender::Error) {
> print "... Error sending mail: \nPerl- $@ :
> \nModule- $Mail::Sender::Error \n";
> } else { print "Sent ok to $admn $Mail::Sender::Error \n"; }
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
