Schleife für mehrfachen Mailversand

[Tobi II]

Hallo Gleichgesinnte,

ich habe ein CGI-Programm geschrieben, das eigentlich an alle Freunde (die man vorher in einem HTML-Formular auswählt) eine Email schicken soll. Aber die Mails kommen nicht bei allen an. Da es häufig die selben sind, bei denen es nicht klappt, nehme ich an, es liegt an den Email-servern, die vielleicht etwas lahm sind, oder nicht? Hier ist ein Auszug aus dem Script:

foreach (@email) {
   open (MAIL, "|$mailprog -t") || die "Can't open Mail!\n";
      print MAIL "To: $_ \n";
      print MAIL "From: $sender \n";
      print MAIL "Subject: $subject\n\n";
      print MAIL "Rundmail von $name:\n";
      print MAIL "------------------------------- \n\n";
      print MAIL "$message";
   close (MAIL);
  }

Oder woran kann es noch liegen? Hat jemand einen Tipp für mich?
Vielen Dank, Tobi II

[e-mail]