Opened by coax at 2004-02-28 03:06
User since
2003-09-10
141 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-09-10
141 Artikel
BenutzerIn
Hät da auch noch ne Frage, bezüglich Email verschicken.
Benutze folgendes Script
Und meine Frage wäre, wie ich damit mehrere User gleichzeitig eine EMail schicken kann, ohne die Subroutine durch ne Schleife laufen zu lassen. Hab da schon vieles ausprobiert, aber irgendwie nicht das richtige :/
Benutze folgendes Script
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
sub Smtp { #Email,Titel,Text
use Net::SMTP;
my $Smtpserver = '127.0.0.1';
my $smtp = Net::SMTP->new($Smtpserver) or die $@;
$smtp->mail($_[3]);
$smtp->to($_[0]);
$smtp->data();
$smtp->datasend("Subject: $_[1]\n");
$smtp->datasend("To: $_[0]\n");
$smtp->datasend("\n");
$smtp->datasend($_[2]);
$smtp->dataend();
$smtp->quit;
}Und meine Frage wäre, wie ich damit mehrere User gleichzeitig eine EMail schicken kann, ohne die Subroutine durch ne Schleife laufen zu lassen. Hab da schon vieles ausprobiert, aber irgendwie nicht das richtige :/
Haut mich nicht, ich bin ein Noob!