nicht angemeldet
Folgenden Source hab ich:
#!/usr/bin/perl
use Net::SMTP;
use strict;
my($mailhost,$absender,$empfaenger);
$mailhost='smtp.web.de';
$absender='irgendwer@web.de';
$empfaenger='weranders@web.de';
Objekt erzeugen
my $smtp=Net::SMTP->new($mailhost);
Absender und Emfaegner
$smtp->mail($absender);
$smtp->to($empfaenger);
Beginne mit dem Senden des Kommandos DATA an den Server
$smtp->data();
Sende nun die Daten an den Server
$smtp->datasend(<<END);
To: $empfaenger
Subject: Das ist eine Testmail
Der text im body der mail
dein $absender
END
Stoppe das senden der Daten an den Server
$smtp->dataend();
Baue nun die Verbindung ab.
$smtp->quit();
print "Content-type: text/html\n\n";
print "<html><body>Gesendet</body></html>";
Frage nun, wieso schickt er keine Mail, ich vermute ja, das es daran liegt, das man sich beim Postausgangsserver anmelden muss, jedoch wie tue ich das ????