<?php
$separator="\n";
$from="everyone@hatusepphp.com.au";
$sto="email@email.com";
$salutation="Peter";
$subject="Test mail attachments";
$message="The enclosed files are tests.".$separator;

$attachments[]["file"]="./my_picture.jpg";
$attachments[]["file"]="./my_documentum.doc";

reset($attachments);
while(list($k, $v)=each($attachments))

{
$attachments[$k]["name"]=basename($v["file"]);
}

reset($attachments);
while(list($k, $v)=each($attachments))
{
$attachments[$k]["size"]=filesize($v["file"]);

}

reset($attachments);
while(list($k, $v)=each($attachments))
{
switch(substr(strrchr($v["file"], "."),1))
{
case"jpg":
$attachments[$k]["type"]="image/jpg; name=\""
.$attachments[$k]["name"]. "\"";
break;
case"doc":
$attachments[$k]["type"]="text/plain; charset=iso-8859-1";
break;
default:
$attachments[$k]["type"]="application/octet-stream";
}
$attachments[$k]["encoding"]="base64";
}

$message_prefix="";
$message_suffix="";

if(isset($attachments) and is_array($attachments) and count($attachments)>0)
{

list($x, $y)=explode(" ", microtime());

$boundary=$y.substr($x, 2);
$add[]="MIME-version: 1.0";
$add[]='Content-Type: multipart/mixed; boundary=--"'. $boundary.'"';

$message_prefix .="--".$boundary .$separator
    ."Content-Type: text/plain; charset=us-ascii".$separator
    ."Content-Transfer-Encoding: 7bit". $boundary."--".$separator.$separator;


reset($attachments);
while(list($k, $v)=each($attachments))
{
$message_suffix .="--".$boundary .$separator
    ."Content-Type: ". $v["type"].$separator
    ."Content-Transfer-Encoding: base64".$separator
    ."Content-Disposition: inline; filename=\"".$v["name"].$separator
    . $boundary."--"
    .$separator.$separator;
    
    $f=fopen($v["file"], "rb");
    $x=fread($f, $v["size"]);
    fclose($f);
    
    // 532.pages
    $message_suffix .=chunk_split(base64_encode($x));
}
    $message_suffix.="--".$separator;
    }
    
    if(isset($from) and strlen($from))
    {$add[]="From: ". $from;
    }
    $additional="";
if(isset($add) and is_array($add))
    {
    $additional=implode($separator, $add) .$separator;
    }
    
$m=$message_prefix."Dear".$salutation.",\n"
.$message.$message_suffix;
    if(mail("mail@mail.com", "Test",$m,$additional))
{
print("<br><font color=\"green\">Mail sent to".htmlentities($to).".</font>");
    }
    else{
    print("<br><font color=\"red\">Mail sent to".htmlentities($to).".</font>");
    }
?>