nicht angemeldet
hi zusammen,
kann mir vielleicht jmd. helfen warum keine Mails ankommen mit Net::Smtp. Hier mein Script:
#!/usr/bin/perl -w
use Net::SMTP; # Einbinden des NET:SMTP Moduls
$mailServer = "smtp.xxx.de"; # Name des SMTP Servers. Angabe einer
IP Adresse ist auch möglich
$absender = "absender@xxx.de"; # Emailadresse des Absenders.
$betreff = "Neue Nachricht"; # Betreffszeile der Email
$empfaenger = "fake19@uni.de"; # Emailadresse des Empfängers
$smtp = Net::SMTP->new($mailServer); # Ein neues SMTP Objekt wird erzeugt.
Als Parameter wird der Name des SMTP
Servers verlangt.
$smtp->mail($absender); # Dem SMTP Server wird der Absender
mitgeteilt.
$smtp->to($empfaenger); # Dem SMTP Server wird der Empfänger
mitgeteilt.
$smtp->data(); # Dem SMTP Server wird mitgeteilt, daß
nun der Nachrichtentext folgt.
$smtp->datasend("Subject: $betreff\n"); # Betreffszeile wird zum Server
geschickt.
$smtp->datasend("To: $empfaenger\n"); # Empfänger Emailadresse wird
geschickt.
$smtp->datasend("\n"); # Leerzeile wird an Server geschickt
$smtp->datasend("TEST");
$smtp->dataend(); # Dem Server wird mitgeteilt, daß kein weiterer
Nachrichtentext folgt.
$smtp->quit; # Beenden der Verbindung mit dem Server
print "Content-type: text/html\n\n";
print '<html><head><title>Toll</title></head><body>toll</body></html>';
Wäre echt dankbar wenn mir jmd. weiterhelfen könnte, denn im Webserver sthet kein Error drin, aber die Mails kommen
nicht an ...
cu
alligator