Sendmail ?

[Oli]

Hi Volker,

eine schöne Sache ist, Dir das Modul Mail::MailTools vom CPAN zu holen.

Dann bindest du es per use ein und kannst es etwa per untenstehender Routine aufrufen:

mehlen($ab, $em, $be, $ru);

sub mehlen{

my $absender = $_[0]; #@ quoten!
  my $empfaenger =  $_[1]; #@ quoten!
  my $betreff = $_[2];
  my $rumpf = $_[3];

my $mailer = Mail::Mailer->new("sendmail");

$mailer->open({ From => $absender,
    To => $empfaenger,
    Subject => $betreff,
  })
    or die "Kann nicht oeffnen: $!\n";
  print $mailer $rumpf;
  $mailer->close;
}

Das Tool sucht automatisch nach sendmail.

Gruß

Oliver