Lo sentimos :-(, pero sin dirección de correo electrónico válida no podemos enviar el mensaje
";
?>
IsSMTP();
$mail->Mailer = "smtp";
$mail->Host = "localhost"; // Servidor de SMTP
$mail->SetLanguage("es", "phpmailer/language/");
$mail->CharSet = lire_meta('charset'); // Juego de caracteres
$mail->Timeout="20";
$mail->WordWrap = "75"; // set word wrap to 50 characters
//$mail->AddAttachment("/var/tmp/file.tar.gz"); // añadir archivos
//$mail->AddAttachment("/tmp/image.jpg", "new.jpg"); // añadir archivos con nombre
// VARIABLES
$un_salto="\r\n";
$dos_saltos="\r\n\r\n";
// PARTE COMÚN
//Estoy recibiendo los campos, compongo el cuerpo
if (!$HTTP_POST_VARS["nombre"]) { $remite= "Olvidó escribir su nombre"; } else { $remite= $HTTP_POST_VARS["nombre"]; }
$mail->FromName = $remite; // de nombre
$mail->From = $HTTP_POST_VARS["nombre"]; // de email
if (!$HTTP_POST_VARS["email"]) { $replica = "[(#EMAIL_WEBMASTER)]"; } else { $replica = $HTTP_POST_VARS["email"]; }
$mail->AddReplyTo($replica); // reply
$separar = explode(',',$destino);
foreach($separar as $email_destino) {
$mail->AddAddress($email_destino); // para
};
if (!$HTTP_POST_VARS["asunto"]) { $asunto='[(#TITRE|texte_script)]'; } else { $asunto=$HTTP_POST_VARS["asunto"]; }
$mail->Subject = $asunto; // Asunto
// COMIENZO PARTE TEXTO PLANO
//Referencia al artículo para el texto plano
?>
".$un_salto;
$texto_plano .= "Fuente: #NOM_SITE_SPIP (#URL_SITE_SPIP)";
$texto_plano .= $un_salto."-------------------------------".$un_salto;
$mail->AltBody = $texto_plano; //Cuerpo en TEXTO PLANO
// FIN PARTE TEXTO PLANO
// COMIENZO PARTE HTML
$texto_html .="
";
if (!$HTTP_POST_VARS["coment"]) { $comentario="Hola. Quizás este documento de #NOM_SITE_SPIP te pueda interesar."; } else { $comentario=$HTTP_POST_VARS["coment"]; }
$texto_html .="
";
$mail->Body = $texto_html; //Cuerpo en HTML
// FIN PARTE HTML
// Envío (5 intentos)
$enviado = $mail->Send();
$intentos=1;
while((!$enviado)&&($intentos<5)&&($mail->ErrorInfo!="SMTP Error: Data not accepted")){
sleep(5);
//echo $mail->ErrorInfo;
$enviado = $mail->Send();
$intentos=$intentos+1;
}
if ($mail->ErrorInfo=="SMTP Error: Data not accepted") { // soluciona un bug con attachements
$enviado=true;
}
//información final sobre el envío
if($enviado)
{
echo "
#NOM_SITE_SPIP
La referencia de
\"[(#TITRE|texte_script)]\"
ya se ha enviado a ". $HTTP_POST_VARS["destino"] ."
";
}
else{
echo "
#NOM_SITE_SPIP
Lo sentimos Ha habido un problema y no se ha podido enviar el correo :-(
";
}
// Borro las direcciones de destino establecidas anteriormente
$mail->ClearAddresses();
?>