Subversion-Projekte lars-tiefland.content-management

<?
        $_to="info@weban.de";
        $_from="test.info@weban.de";
        $_subject="Dies ist ein Test";
        
        $MSG[PLAIN]="dies ist ein test";
        $MSG[HTML]="<hr>Dies ist ein <a href=3D\"http://www.test.de\">TEST</a><hr>";

        /* INIT $boundary */
        srand ((double)microtime()*1000000);
        $boundary="";
        for ($a=0; $a <= 15; $a++)
        {
                $boundary=$boundary.sprintf("%02X",rand(0,255));
        }
        $boundary="=_".$boundary;

        $MIME_HEADERS["From"]                   =       "From: $_from";
        $MIME_HEADERS["MIME-Version"]   =       "MIME-Version: 1.0";
        $MIME_HEADERS["Content-Type"]   =       "Content-Type: multipart/alternative;";
        $MIME_HEADERS["boundary"]               =       chr(9)."boundary=\"".$boundary."\"";

        $CONTENT_HEADERS=array
        (
                "PLAIN" => array(
                        "--".$boundary,
                        "Content-Type: text/plain; charset=\"ISO-8859-1\"",
                        "Content-Transfer-Encoding: 7bit",
                        "",""
                        ),
                "HTML" => array(
                        "",
                        "--".$boundary,
                        "Content-Type: text/html; charset=\"ISO-8859-1\"",
                        "Content-Transfer-Encoding: quoted-printable",
                        "",""
                        )
        );
        
        foreach(array_keys($CONTENT_HEADERS) as $elem)
        {
                $MSG[$elem]=join($CONTENT_HEADERS[$elem],"\n").$MSG[$elem];
        }

        mail
        (
                $_to,
                $_subject,
                join($MSG,"\n")."\n--".$boundary."--\n",
                join($MIME_HEADERS,"\n")
        );
?>