mail + priloha

<?

if ($akce == "Odoslat") {

  if ($soubor_name == "") {

    if (mail ("kajbo@projectx2.biz", 'ICQ-WEB', "$dopis", "From: $odesilatel")) {
      print "E-mail bol odoslaný<br>";
    }
    else {
      print "E-mail sa nepodarilo odoslať<br>";
    }
  }
  else {
$envelope["from"] = "$odesilatel";
    $envelope["to"] = "kajbo@projectx2.biz";

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


   
   copy($soubor, "r/$soubor_name");

    $f = fopen ("r/$soubor_name", "r");
    $obsah = fread ($f, filesize("r/$soubor_name"));
    fclose ($f);

    $part2["type"] = TYPEAPPLICATION;
    $part2["encoding"] = ENCBINARY;
    $part2["subtype"] = "octet-stream";
    $part2["description"] = basename($soubor_name);
    $part2["contents.data"] = "$obsah";

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

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

    $zprava = imap_mail_compose ($envelope, $body);

    $pom = StrPos($zprava, "\r\n\r\n");
    $hlavicka = SubStr($zprava, 0, $pom+2);
    $telo = SubStr($zprava, $pom, StrLen($zprava) - $pom);

    if (mail ("kajbo@projectx2.biz", 'ICQ-WEB (user)', $telo, $hlavicka)) {
       print "E-mail bol odoslaný";
    }
    else {
       print "E-mail sa nepodarilo odoslať";
    }
  }
}

?>

<span class="txt5" style="position: absolute;  " >
<form action="user_up.php" method="post" enctype="multipart/form-data">
Vaše meno (nick):<br> <input type="text" name="odesilatel" size="87" maxlenght="87"><br>
<br>Popis (článok, doplnok...): <br>
<textarea name="dopis" cols="65" rows="10" value="napissem" ></textarea><br><br>
Doplnok (obrázok, skin...):<br> <input type="file" name="soubor"  size="72"> <br>
<input type="submit" name="akce" value="Odoslat"><br>
</form>
</span>