Email versenden über SMTP statt /usr/sbin/sendmail ?

[xNeTworKx]

Hallo,
ich hab da noch eine kleine Frage und zwar auf meinem Server funktioniert leider sendmail nicht, und ich würde jetzt gern über einen smtp Server senden, nur weis ich leider nicht wie das Script dazu aussehen soll. Ich hab zwar schon in perldoc.com unter NET:SMTP nachgesehen, bin aber leider auch nicht viel schlauer. Kann mir jemand ein kleines Beispiel geben, woran ich micht orientieren kann,
wäre wirklich sehr dankbar.

[Philipp Hasenfratz]

ich hab da noch eine kleine Frage und zwar auf meinem Server funktioniert leider sendmail nicht, und ich würde jetzt gern über einen smtp Server senden, nur weis ich leider nicht wie das Script dazu aussehen soll. Ich hab zwar schon in perldoc.com unter NET:SMTP nachgesehen, bin aber leider auch nicht viel schlauer. Kann mir jemand ein kleines Beispiel geben, woran ich micht orientieren kann,

hab's nie getestet, aber in der Doku steht's mehr oder weniger gut beschrieben:

#!/usr/local/bin/perl -w

use Net::SMTP;

$smtp = Net::SMTP->new('mail.gmx.net');

$smtp->mail('[e-mail]');
    $smtp->to('[e-mail]');

$smtp->data();
    $smtp->datasend("To: [e-mail]\n");  # das wird der Mailheader
    $smtp->datasend("\n");  # der Header wird mit \n\n vom Content getrennt!
    $smtp->datasend("Hier kommt der Text!\n");
    $smtp->dataend();

$smtp->quit;

[Philipp Hasenfratz]

hab's soeben __erfolglos__ getestet. Irgendwie scheint's bei meinem local-PC nicht zu wollen. Aber vielleicht funktioniert's online...

[...]

$smtp->data();
    $smtp->datasend("To: [e-mail]\n");  # das wird der Mailheader

^^^^^^
hier müsste ein '@' statt einem '@' stehen!

[...]

Viele Grüsse

Philipp

[xNeTworKx]

Hallo,
danke für die schnelle Hilfe
#!/usr/bin/perl -w

use Net::SMTP;
print "Content-type:text/plain\n\n";
$smtp = Net::SMTP->new('smtp.chello.at');

$smtp->mail('[e-mail]');
$smtp->to('[e-mail]');

$smtp->data();
$smtp->datasend("To: [e-mail]\n");  # das wird der Mailheader
$smtp->datasend("\n");  # der Header wird mit \n\n vom Content getrennt!
$smtp->datasend("Hier kommt der Text!\n");
$smtp->dataend();

$smtp->quit;

Ich bekomm zwar ein email, aber ein Error Mail ?
This Message was undeliverable due to the following reason:

The following destination addresses were unknown (please check the
addresses and re-mail the message):

<"[e-mail]">

Please reply to [e-mail]
if you feel this message to be in error.

Wie kann das sein ?, meine email Adresse stimmt doch.

[Philipp Hasenfratz]

Hallo,
danke für die schnelle Hilfe

kein Problem.

$smtp->datasend("To: [e-mail]\n");  # das wird der Mailheader

Wie kann das sein ?, meine email Adresse stimmt doch.

versuch doch mal die Zeile oben wie folgt zu ändern:

$smtp->datasend("To: [e-mail] <Mein Name>\n");
                                       ^^^^^^^^^^^^^^

das selbe mit
$smtp->mail('[e-mail]');
$smtp->to('[e-mail]');

einfach immer noch das <...> anhängen.

hoffe das das Funktioniert.

Gruss

Philipp

[Michael Staehle]

Hallo,
ich hab da noch eine kleine Frage und zwar auf meinem Server funktioniert leider sendmail nicht, und ich würde jetzt gern über einen smtp Server senden, nur weis ich leider nicht wie das Script dazu aussehen soll. Ich hab zwar schon in perldoc.com unter NET:SMTP nachgesehen, bin aber leider auch nicht viel schlauer. Kann mir jemand ein kleines Beispiel geben, woran ich micht orientieren kann,
wäre wirklich sehr dankbar.

www.google.de

"NET:SMTP example source perl"

Und gleich das oberste, ganz unten auf der Seite den Link und den Source auf der naechsten Seite zuehen.

FERTISCH

Ciao MIcha

[Klaus Mock]

Auch hallo,

Du solltest Dir auch das Modul Mail::Mailer ansehen, da das in der Lage ist, über verschiedene Meachanismen die Mails zu versenden (auch ein Test-Modus ist vorhanden).

Und beim erstellen des Mailbodys können Dir sicherlich die MIME::* Module weiterhelfen.

Grüße
  Klaus