Odeslání emailu s html a přilohou

        $handle = fopen($tmpfilename, 'r');
        $filecontentdata = fread($handle, filesize($tmpfilename));
        fclose($handle);
        $headers = array(
            'from' => 'Web <user@email.cz>',
            'content-type' => 'text/html;charset=utf-8'
        );
        $body = array(
            1 => array(
                'type' => TYPEMULTIPART,
                'subtype' => 'mixed'
            ),
            2 => array(
                'type' => TYPEAPPLICATION,
                'subtype' => 'octet-stream',
                'encoding' => ENCBINARY,
                'description' => 'file', //K čemu je to vůbec, čekal jsem, že by to nastavovalo aspoň název přílohy, ale stejně tam mam noname
                'contents.data' => $filecontentdata
            ),
            3 => array(
                'type' => TYPETEXT,
                'subtype' => 'plain',
                'charset' => 'utf-8',
                'description' => 'message',
                'contents.data' => '<h1>Zpráva s přílohou?</h1>'
            )
        );
        $imap_mail = imap_mail_compose($headers, $body);
        $headbreak = strpos($imap_mail, "\r\n\r\n");
        $imap_mail_heads = substr($imap_mail, 0, $headbreak + 2);
        //Nedá se to rozdělení hlaviček od dokumentu nějak zkrátit? Třeba funckí která rozdělí řetězec třeba do pole v prvním výskytu hledaného výrazu?
        $imap_mail_body = substr($imap_mail, $headbreak, strlen($imap_mail) - $headbreak);
                mail('mojeschranka@email.cz', 'Titulek', $imap_mail_body, $imap_mail_heads);