Anhang wird nicht mit verschickt

[Hans]

Hallo,

mit diesem Code versuche ich, eine mail mit Anhang zu verschicken.
die Mail kommt auch an, der Anhang leider nicht (es kommt auch nirgendwo eine Fehlermeldung).

$Dateiname = "test.htm";
 $DateinameMail = "test.htm";

$Header = "From: Tester [e-mail]";

$Trenner = md5(uniqid(time()));
 $Header .= "\n";
 $Header .= "MIME-Version: 1.0";
 $Header .= "\n";
 $Header .= "Content-Type: multipart/mixed; boundary=$Trenner";
 $Header .= "\n\n";
 $Header .= "This is a multi-part message in MIME format";
 $Header .= "\n";
 $Header .= "--$Trenner";
 $Header .= "\n";
 $Header .= "Content-Type: text/html";
 $Header .= "\n";
 $Header .= "Content-Transfer-Encoding: 8bit";
 $Header .= "\n\n";
 $Header .= $mailtext;
 $Header .= "\n";
 $Header .= "--$Trenner";
 $Header .= "\n";
 $Header .= "Content-Type: text/html; name=$DateinameMail";
 $Header .= "\n";
 $Header .= "Content-Transfer-Encoding: base64";
 $Header .= "\n";
 $Header .= "Content-Disposition: attachment; filename=$DateinameMail";
 $Header .= "\n\n";
 $Dateiinhalt .= fread(fopen($Dateiname, "r"), filesize($Dateiname));
 //$Header .= chunk_split(base64_encode($Dateiinhalt));
 $Header .= "\n";
 $Header .= "--$Trenner--";

if(mail($Empfaenger, $Betreff, "", $Header))
{
print 'Die Mail wurde erfolgreich verschickt!';
}

Weiß jemand Rat?
Ich denke mal es liegt irgendiwe an transfer-enconding...

Danke!