use Net::SMTP; # Einbinden des NET:SMTP Moduls
$mailServer = "mail.server.com"; # Name des SMTP Servers. Angabe einer
# IP Adresse ist auch möglich
$nachricht = "nachricht.txt"; # Der Text der Nachricht
$absender = "absender\@hier.com"; # Emailadresse des Absenders.
$betreff = "Neue Nachricht"; # Betreffszeile der Email
$empfaenger = "empfaenger\@dort.com"; # 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
# Öffnen der Datei, die den eigentlichen Nachrichtentext enthält,
# und Einlesen des Texts in das Array @nachricht.
open (MESSAGE, $nachricht) || die "kann Datei $nachricht nicht öffnen";
@nachricht=<MESSAGE>;
close MESSAGE;
# Nachricht wird zeilenweise and den Server geschickt
foreach $zeile (@nachricht) {
$smtp->datasend("$zeile");
}
$smtp->dataend(); # Dem Server wird mitgeteilt, daß kein weiterer
# Nachrichtentext folgt.
$smtp->quit; # Beenden der Verbindung mit dem Server