CMailTools::EncodeMimeString

static function EncodeMimeString($text, $charset)
{
	if(!CMailTools::IsEightBit($text))
		return $text;

	$maxl = intval((76 - mb_strlen($charset) + 7)*0.4);

	$res = "";
	$eol = BitrixMainMailMail::getMailEol();
	$len = mb_strlen($text);
	for($i=0; $i<$len; $i=$i+$maxl)
	{
		if($i>0)
			$res .= $eol."t";
		$res .= "=?".$charset."?B?".base64_encode(mb_substr($text, $i, $maxl))."?=";
	}
	return $res;
}