<!-- Collection of code snippets by Arne VajhГёj -->
<!-- posted to eksperten.dk, usenet and other places (2002-now) -->
<?php
require_once('Mail.php');
require_once('Mail\mime.php');
function qp_encode($str, $wrap=true) {
    $res = '';
    for($i = 0; $i < strlen($str); $i++) {
        if(ord($str[$i]) < 128) {
            $res .= $str[$i];
        } else {
            $res .= sprintf('=%02X', ord($str[$i]));
        }
    }
    return ($wrap === true) ? wordwrap($res, 74, "=\n") : $res;
}
function header_encode($str) {
    return '=?ISO-8859-1?Q?' . qp_encode($str) . '?=';
}
function body_encode($str) {
    return qp_encode($str, true);
}
$from = 'someone@somewhere.dk';
$to = 'someone@somewhere.dk';
$subject = header_encode('Dette er en lille test af ЖШЕ');
$body = body_encode('Dette er en lille test af ЖШЕ');
$message = new Mail_mime();
$message->setTXTBody($body);
$headers = array('From' => $from,
                 'Subject' => $subject,
                 'Content-Type' => 'text/plain; charset=ISO-8859-1',
                 'Content-Transfer-Encoding' => 'quoted-printable');
$smtp = Mail::factory('smtp', array('host' => 'smtp.myisp.com', 'port' => 25));
$realbody = $message->get();
$realheaders = $message->headers($headers, true);
$smtp->send($to, $realheaders, $realbody);
?>