also so siehts aus!
http://young-modders.de/mailer
erstmal ohne farbe!
so nun wurde noch folgender text dazu geschrieben (hab ich nicht selber gemacht)
text:
#!/usr/bin/perl
# Der Pfad zu Ihrem Mailprogramm
$mailprog = '/usr/sbin/sendmail';
# An welche URL soll der User geleitet werden, wenn er seine Mail
# geschrieben hat?
$returnurl = "http://www.ihredomain.de/form";
# Die URL zum CSS Stylesheet
$cssurl = "http://www.ihredomain.de/form/form.css";
# Zeitspanne in Sek nach der weitergeleitet wird zu obiger URL
$weiterleitungszeit = 5;
# E-Mail des Empfängers UNBEDINGT den \ vor dem @ notieren
# Reihenfolge beachten in der index.html
#<option value="0">Webmaster</option>
#<option value="1">Support</option>
# Kann beliebig erweitert werden
@email_liste = ("webmaster\@ihredomain.de","webmaster\@anderedomain.de");
# Name der in der Grussformel der Mail verwendet wird
$webmastername = "Ihr Name";
require "autoan.pl";
###################################################
read(STDIN, $input, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $input);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$name =~ tr/+/ /;
$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$FORM{$name} = $value;
}
###################################################
# Hier JEDES Formularelement eintragen was in dem Formular der index.html
# vorkommt von welchem der User absendet
# Die Reihenfolge spielt hier keine Rolle
$empfaenger = $FORM{'empfaenger'};
$subject = $FORM{'subject'};
$name = $FORM{'name'};
$email = $FORM{'email'};
$message = $FORM{'message'};
###################################################
# Liste der Pflichtfelder die der Absender ausfuellen muss.
# Kann beliebig angepasst werden
# Fehlerbehandlung Anfang
$fehlermeldung = "" ;
$fehler_gefunden = "" ;
$errormeldung = "<li>Das Feld Vor,- und Zuname wurde nicht ausgefüllt.\n" ;
if ($name eq "") {
$fehlermeldung = $fehlermeldung.$errormeldung ;
$fehler_gefunden = 1 ; }
$errormeldung = "<li>Bitte geben Sie eine gültige E-Mail Adresse ein.\n" ;
if ($email !~ /^([a-zA-Z0-9][a-zA-Z_0-9-\.]*)(\@)([a-zA-Z0-9][a-zA-Z_0-9-\.]*[a-zA-Z0-9])(\.)([a-zA-Z0-9]*)$/) {
$fehlermeldung = $fehlermeldung.$errormeldung ;
$fehler_gefunden = 1 ; }
$errormeldung = "<li>Das Feld E-Mail wurde nicht ausgefüllt.\n" ;
if ($email eq "") {
$fehlermeldung = $fehlermeldung.$errormeldung ;
$fehler_gefunden = 1 ; }
$errormeldung = "<li>Sie haben keinen Text in das Nachrichtenfeld eingegeben.\n" ;
if ($message eq "") {
$fehlermeldung = $fehlermeldung.$errormeldung ;
$fehler_gefunden = 1 ; }
if ($fehler_gefunden) {
&fehlerausgabe; }
# Fehlerbehandlung Ende
###################################################
open (DATEI, "<respond.txt");
flock (DATEI, 2);
@resp = <DATEI>;
close DATEI;
&datumsausgabe;
&mailsenden;
&bestaetigung;
sub mailsenden {
open (MAIL, "|$mailprog -t") || die $!;
print MAIL "To: $email_liste[$empfaenger]\n";
print MAIL "From: $email ($name)\n";
print MAIL "Subject: $subject\n\n";
print MAIL "Eine Anfrage von ihrem Feedbackformular\n";
print MAIL "Name: $name \n";
print MAIL "E-Mail: $email\n";
print MAIL "==================================\n";
print MAIL "Anfragetext:\n";
print MAIL "$message\n";
print MAIL "==================================\n\n";
print MAIL "Gesendet am: $datum\n";
close(MAIL);
# Autorespondermail
if ($autoan eq "JA") {
open (MAIL, "|$mailprog -t") || die $!;
print MAIL "To: $email ($name)\n";
print MAIL "From: $email_liste[$empfaenger]\n";
print MAIL "Subject: $subject\n\n";
print MAIL "Bestaetigung des Maileinganges\n\n";
print MAIL "@resp\n";
print MAIL "\n";
print MAIL "Viele Gruesse\n";
print MAIL "$webmastername\n";
print MAIL "Gesendet am: $datum\n";
close(MAIL);
}
}
###################################################
sub bestaetigung {
print "Content-type: text/html\n\n";
print qq~
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<META http-equiv="Content-Type" content="text/html">
<meta http-equiv="content-type" content="text/html; charset=ISO-8859-1">
<meta http-equiv="refresh" content="$weiterleitungszeit; URL=$returnurl">
<link rel=stylesheet type="text/css" href="$cssurl">
<title>E-Mail erfolgreich gesendet</title>
</head>
<body>
<div align="center">
<table class="tab" cellspacing="2" cellpadding="0" border="0">
<tr>
<td colspan="2" class="th">E-Mail erfolgreich gesendet<br>
</td>
</tr>
<tr>
<td colspan="2" class="tdf">
<b>Vielen Dank!</b><br>
Vielen Dank Herr/Frau $name, für Ihre Anfrage.<br><br>
Wir bemühen uns Ihnen so bald als möglich eine Antwort zu senden.<br><br>
Sie werden in $weiterleitungszeit Sekunden weitergeleitet,
falls nicht, klicken Sie bitte untenstehen Link.<br><br>
<a class="fl" href="$returnurl">Zurück zur Hauptseite</a>
</td></tr></table></div>
</body>
</html>
~;
}
###################################################
sub fehlerausgabe {
print "Content-type: text/html\n\n";
print qq~
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<META http-equiv="Content-Type" content="text/html">
<meta http-equiv="content-type" content="text/html; charset=ISO-8859-1">
<link rel=stylesheet type="text/css" href="$cssurl">
<title>Fehler festgestellt</title>
</head>
<body>
<div align="center">
<table class="tab" cellspacing="2" cellpadding="0" border="0">
<tr>
<td colspan="2" class="th">Fehler festgestellt<br>
</td>
</tr>
<tr>
<td colspan="2" class="tdf">
Beim ausfüllen haben Sie folgendes vergessen:<ol> <b>$fehlermeldung</b> </ol><br>
Bitte gehen Sie
<a class="fl" href="javascript:history.go(-1)" onMouseOver="self.status=document.referrer;return true">zurück</a>
zum Formular und berichtigen die Angaben.
</td></tr></table></div>
</body>
</html>
~;
exit;
}
###################################################
sub datumsausgabe {
@tagekurz = ('So','Mo','Di','Mi','Do','Fr','Sa');
@monatekurz = ('Jan.','Feb.','Maerz','Apr.','Mai.','Jun.','Jul.','Aug.','Sept.','Okt.','Nov.','Dez.');
@tage = ('Sonntag','Montag','Dienstag','Mittwoch','Donnerstag','Freitag','Samstag');
@monate = ('Januar','Februar','Maerz','April','Mai','Juni','Juli','August','September','Oktober','November','Dezember');
($sec, $min, $stunde, $mtag, $mon, $jahr, $tag, $nr_tag, $isdst) = localtime(time);
$monat = $mon+1;
if($monat < 10) { $monat = "0$monat"; }
if($stunde < 10) { $stunde = "0$stunde"; }
if ($min < 10) { $min = "0$min"; }
if ($sec < 10) { $sec = "0$sec"; }
$jahr = 1900 + $jahr;
# Ausgabe z.B. 17:39:43 Uhr Sonntag, 14. Juli , 2002
$datumlang = "$stunde:$min:$sec Uhr $tage[$tag], $mtag. $monate[$mon] , $jahr";
# Alle Datumswerte, Ausgabe z.B. Sonntag, 14. Juli , 2002
$datum = "$tage[$tag], $mtag. $monate[$mon] , $jahr";
# Ausgabe Monate in Kurzform, z.B. Sonntag, 14. Jul. , 2002
$datumkurz = "$tage[$tag], $mtag. $monatekurz[$mon] , $jahr";
# Ausgabe Tag + Monate in Kurzform, z.B. So, 14. Jul. , 2002
$datumkurz_tag_mon = "$tagekurz[$tag], $mtag. $monatekurz[$mon] $jahr";
# Ausgabe Tag + Monate in Kurzform, z.B. 14. 07. 2002
$datum_tag_mon = "$mtag. $monat. $jahr";
# Ausgabe der Zeit in Sek. seit 1970
$zeit = time();
}
aber ich weiß ich kann mich auf euch verlassen, die kleineren die nciht so begabt sind helfen 
