email s přílohou

opsal jsem si od koska krit na odeslání maliu s přílohou. Nevim proč, ale vždy mi příloha přijde jako "[název souboru i s příponou].dat"
script je zde:
$envelope["from"] = $od;
$envelope["to"] = $komu;

$part1["type"] = TYPEMULTIPART;
$part1["subtype"] = "mixed";

$filename = $file;
$fps = FOpen($filename, "r");
$contents = FRead($fps, FileSize($filename));
FClose($fps);

$part2["type"] = TYPEAPPLICATION;
$part2["encoding"] = ENCBINARY;
$part2["subtype"] = "octet-stream";
$part2["description"] = $file;
$part2["contents.data"] = $contents;

$part3["type"] = TYPETEXT;
$part3["subtype"] = "plain";
$part3["description"] = "zprava";
$part3["contents.data"] = $text;

$body[1]=$part1;
$body[2]=$part2;
$body[3]=$part3;

$message = IMAP_Mail_Compose($envelope, $body);

$pos = StrPos($message, "\r\n\r\n");

$header = SubStr($message, 0, $pos+2);

$body = SubStr($message, $pos, StrLen($message) - $pos);

Mail("", "$subject", $body, $header);

mozno kodovanie robi problem... (?)

Až na to přijdeš, dal bys mi prosím vědět. Řeším to stejné!