PHP and MySQL Web Development 4th Ed-tqw-_darksiderg

736 Chapter 30 Building a Mailing List Manager
Listing 30.17
Continued
$hdrarray = array(
'From' => $from,
'Subject' => $subject);
$hdrs = $message->headers($hdrarray);
// create the actual sending object
$sender =& Mail::factory('mail');
if($status == 'STORED') {
// send the HTML message to the administrator
$sender->send($admin_user, $hdrs, $body);
// send the plain text version of the message to administrator
mail($admin_user, $subject, $text,
'From: "'.get_real_name($admin_user).'" ');
echo "Mail sent to ".$admin_user."";
// mark newsletter as tested
$query = "update mail set status = 'TESTED' where
mailid = '".$mailid."'";
$result = $conn->query($query);
echo "Press send again to send mail to whole list.
";
display_button('send', '&id='.$mailid);
echo "";
} else if($status == 'TESTED') {
//send to whole list
$query = "select subscribers.realname, sub_lists.email,
subscribers.mimetype
from sub_lists, subscribers
where listid = $listid and
sub_lists.email = subscribers.email";
$result = $conn->query($query);
if(!$result) {
echo "Error getting subscriber list";
}