HI,
open(EMAIL, "|$mailprog -t") || die "Can't open $mailprog!\n)";
print EMAIL "To: webmaster@fust-buetschwil.ch";
print EMAIL "From: $email";
print EMAIL "Subject: Kontaktaufnahme via Homepage";
print EMAIL "Nachname: $nachname\n\n";
print EMAIL "Vorname: $vorname\n\n";
print EMAIL "Adresse: $adresse\n\n";
print EMAIL "PLZ/Ort: $plz_ort\n\n";
print EMAIL "Telefon: $telefon\n\n";
print EMAIL "Email: $email\n\n";
print EMAIL "Kommentar:\n\n";
print EMAIL "$kommentar\n";
close (EMAIL);
versuch mal das:
open(EMAIL, "|$mailprog -t") || die "Can't open $mailprog!\n)";
print EMAIL "To: webmaster@fust-buetschwil.ch\n";
print EMAIL "From: $email\n";
print EMAIL "Subject: Kontaktaufnahme via Homepage\n";
print EMAIL "Nachname: $nachname\n";
print EMAIL "Vorname: $vorname\n";
print EMAIL "Adresse: $adresse\n";
print EMAIL "PLZ/Ort: $plz_ort\n";
print EMAIL "Telefon: $telefon\n";
print EMAIL "Email: $email\n";
print EMAIL "Kommentar:\n\n";
print EMAIL "$kommentar\n";
close (EMAIL);
Gruß
Reiner