Buenas;
Tengo un problema con la decodificación de correos y no encuentro solución, a ver si me podeis echar una mano!!!
Temgo una funcion que envía mails, el problema es que en algunos servidores de correo no me deben interpretar bien la cabeceras u algo pero no me lo decodifica... Uno de esos programas es el Outlook 2003, lo asombroso es que no en todos ocurre... hay en unos que si... otros que no... (incluso de la misma versión...)
Puede tener algo que ver con el servidor desde donde se reciben los correos? En mi casa lo recibo bien con Outlook, en la uni con el mismo ordenador, mal...
Además cada vez que intento mandar el mensaje como texto plano para que por lo menos no llegue un churro ilegible de letras y números... me da error. Os dejo la función por si os sirve de algo...
Gracias de antemano
function SendMail($From,$FromName,$To,$ToName,$Subject,$Tex t,$Html,$AttmFiles){
if (UTF8_ACTIVO) {
$Text = utf8_decode($Text);
$Html = utf8_decode($Html);
}
$OB="----=_OuterBoundary_000";
$IB="----=_InnerBoundery_001";
$Html=$Html?$Html:preg_replace("/\n/","{br}",$Text)
or die("neither text nor html part present.");
$Text=$Text?$Text:"Sorry, but you need an html mailer to read this mail.";
$From or die("sender address missing");
$To or die("recipient address missing");
$headers ="MIME-Version: 1.0\r\n";
$headers.="From: ".$FromName." <".$From.">\n";
$headers.="Reply-To: ".$FromName." <".$From.">\n";
$headers.="From: ".$FromName." <".$From.">\n";
if ($this->cc_email!="")
$headers.="Bcc: ".$this->cc_name." <".$this->cc_email.">\n";
$headers.="X-Priority: 1\n";
$headers.="X-MSMail-Priority: High\n";
$headers.="X-Mailer: My PHP Mailer\n";
$headers.="Content-Type: multipart/mixed;\n\tboundary=\"".$OB."\"\n";
//Messages start with text/html alternatives in OB
$Msg ="This is a multi-part message in MIME format.\n";
$Msg.="\n--".$OB."\n";
$Msg.="Content-Type: multipart/alternative;\n\tboundary=\"".$IB."\"\n\n";
//plaintext section
$Msg.="\n--".$IB."\n";
$Msg.="Content-Type: text/plain;\n\tcharset=\"iso-8859-1\"\n";
$Msg.="Content-Transfer-Encoding: quoted-printable\n\n";
// plaintext goes here
$Msg.=$Text."\n\n";
// html section
$Msg.="\n--".$IB."\n";
$Msg.="Content-Type: text/html;\n\tcharset=\"iso-8859-1\"\n";
//$Msg.="Content-Type: text/plain;\n\tcharset=\"utf-8\"\n";
$Msg.="Content-Transfer-Encoding: base64\n\n";
// html goes here
$Msg.=chunk_split(base64_encode($Html))."\n\n";
// end of IB
$Msg.="\n--".$IB."--\n";
// attachments
if($AttmFiles){
foreach($AttmFiles as $AttmFile=>$FileContent){
$patharray = explode ("/", $AttmFile);
$FileName=$patharray[count($patharray)-1];
$Msg.= "\n--".$OB."\n";
$Msg.="Content-Type: application/octetstream;\n\tname=\"".$FileName."\"\n";
$Msg.="Content-Transfer-Encoding: base64\n";
$Msg.="Content-Disposition: attachment;\n\tfilename=\"".$FileName."\"\n\n";
if ($FileContent=="") {
$fd=fopen ($AttmFile, "r");
$FileContent=fread($fd,filesize($AttmFile));
fclose ($fd);
}
$FileContent=chunk_split(base64_encode($FileConten t));
$Msg.=$FileContent;
$Msg.="\n\n";
}
}
//message ends
$Msg.="\n--".$OB."--\n";
return (mail($To,$Subject,$Msg,$headers));
}
