[perl] smtp mail sturen

[Verwijderd]

Ik wil via perl en een losse smtp server mailtjes versturen.

Wie helpt ! ik krijg het niet voor elkaar

[Verwijderd]

Tsss. Die luie jeugd van tegenwoordig ook.

http://search.cpan.org/doc/GBARR/libnet-1.12/Net/SMTP.pm

[RvdH]

Of zo:

PHP:

if (open(SM,"| /usr/sbin/sendmail -t")) {
                print SM "From: $from\n";
                print SM "To: $email\n";
                print SM "Subject: $subject\n";
                print SM "$message\n";
                close(SM);
} else {
                print h1("Could not send mail!<P> $!");
}

(php tags ff wegdenken)

[Verwijderd]

Via SMTP zei je?

PHP:

use IO::Socket;

SMTPmail("van\@email", "naar\@email", "onderwerp", "test", "localhost", "SMTP mailer");

sub SMTPmail($$$$$$)
{
 my $From = $_[0];
 my $To = $_[1];
 my $Subject = $_[2];
 my $Content = $_[3];
 my $Host = $_[4];
 my $Xmailer = $_[5];
 my $Domain = $ENV{'SERVER_NAME'};
 my $T = "\015\012";
 my ($Handle, $Line);
 
 if(!($Handle = IO::Socket::INET->new(Proto => "tcp", PeerAddr  => $Host, PeerPort  => 25))) { return undef; }
 $Handle->autoflush(1);

 $Line = <$Handle> ;
 print $Handle "HELO ${Domain}$T";
 $Line = <$Handle>;
 print $Handle "MAIL FROM: ${From}$T";
 $Line = <$Handle>;
 print $Handle "RCPT TO: ${To}$T";
 $Line = <$Handle>;
 print $Handle "DATA$T";
 $Line = <$Handle>;
 print $Handle "From: $From${T}To: $To${T}Subject: $Subject${T}X-Mailer: $Xmailer (SMTP)$T$T$Content$T.$T";
 $Line = <$Handle>;
 print $Handle "QUIT$T";

 close $Handle;
 return 1;
}

(denk ook hier die PHP vraagtekens weg, de tag [code] lijkt niet meer zo lekker te werken)

Je moet $Line eigenlijk telkens op fouten controleren, maar ach...

[_DeWie_]

waarom moeilijk doen als het makkelijk kan : use Net::SMTP;

[Verwijderd]

_DeWie_ schreef op 01 augustus 2002 @ 11:20:
waarom moeilijk doen als het makkelijk kan : use Net::SMTP;

Niet elke provider heeft die module geinstalleerd. Maar idd je hebt gelijk, Net-SMTP is makkelijker.

[Juup]

En je hebt nog veel meer keuzes. Bv met Mail::Sender kun je ook attachments meesturen. Er staat onder Mail:: nog veel meer muk.

Niet elke provider heeft die module geinstalleerd.

Geen probleem, dan isntalleer je hem gewoon zelf in je eigen dir.
als je die Makelfile.PL op deze manier runt:
perl Makefile.PL PREFIX=/my/own/dir LIB=/my/own/dir

dan gaat het perfect.