[RESOLU] PERL envoi de mail

# Les variables suivantes peuvent être initialisées dans votre script
# ou transmises en paramètre
$smtpserver = "MonServeurSMTP";
$from = "ServiceInfo@.......";
$replyaddr = "mehdi@......";
$to = "mehdi@.......";
$subject = "URGENT: Disque C plein\n";
$message = "Le disque dur de est plein\n";

# Envoi du message
my $smtp = Net::SMTP->new("$smtpserver", Timeout => 120);
$smtp->mail("$from");
$smtp->to("$to");
$smtp->data();
$smtp->datasend("To: $to\n");
$smtp->datasend("From: $from\n");
$smtp->datasend("Reply-to: $replyaddr\n") if $replyaddr;
$smtp->datasend("X-Mailer: Perl Sendmail \n");
$smtp->datasend("Subject: $subject\n");
$smtp->datasend("\n");
$smtp->datasend("$message\n");
$smtp->dataend();
$smtp->quit();

exit;