Email via PerlScript versenden...klappt nicht...

[ramonl]

1. ich kenne mit nur ganz sporadisch mit perl und unix aus, und muss mich für ein projekt über MIME, und emails unter unix generell beschäftigen und kennenlernen.

Ich soll ein Kapitel im Buch "Netzwerkprogrammierung mit Perl" durcharbeiten, und da bin ich gerade beim Kapitel Mail Tools, wo ein einfaches script besipiel ist, um damit ne Mail zu versenden.

Frage generell : Wie kann das überhaupt gehen, ohne passwörter, pop3-server angaben etc ?


Habe das abgetippt:





#!/usr/bin/perl
# Datei: mailtools1.pl
use Mail::Internet;

my $head = Mail::Header->new;
$head->add(From => 'ray <deejay-ray@gmx.de>');
$head->add(To => 'ramon <ray@deejay-ray.com>');
$head->add(Subject=> 'HALLO');

my $body = <<END;

Dies ist bloß eine einfache E-Mail.
Nichts besonderes.

Grüsse, ramon
END

$mail = Mail::Internet->new(Header=>$head,
Body =>[$body],
Modify =>1);

print $mail ->send('sendmail');


und er führt das wohl aus, aber ich empfange keine email unter der angegebenen adresse, oder kann das so auch noch gar nicht funktionieren ?

[fork]

Du verwendest hier sendmail um die EMail zu versenden. Natürlich muss sendmail richtig konfiguriert sein damit das funktioniert.

Wenn Du direkt via SMTP-Server versenden möchtest nimm Net::SMTP. Wahrscheinlich musst Du Dich auch vorher mit POP3 authentifizieren(Net::POP3) damit du die Mail senden darfst.

[ramonl]

heisst das, ich muss irgendwo in linux sendmail konfigurieren, oder in dem script selber nur ?

[fork]

Ja, irgendwo in Linux. Wie man halt sendmail so konfiguriert :)

[baere]

Ich versende Mails am liebsten mit Mail::Sender. Wie man das macht, habe ich hier mal zusammengeschrieben: http://wiki.perl-community.de/bin/view/Wissensbasis/MailSender und hier als pdf: http://perl.renee-baecker.de/kurs_02.pdf