Takže:
do wengine.php vložit funkci
// odeslani informacniho mailu na adresy reg. ctenaru
function Odesilac($obsah,$predmet)
{
$dotazmail=mysql_query("select email from ".$GLOBALS["rspredpona"]."ctenari where info='1'",$GLOBALS["dbspojeni"]);
$pocetmail=mysql_NumRows($dotazmail);
$kam=""; // inic. seznamu ctenarskych adres
for ($pom=0;$pom<$pocetmail;$pom++):
if (TestNaAdresu(mysql_Result($dotazmail,$pom,"email"))): // test na korektnost adresy
if ($pom>0): $kam .=","; endif; // odelovac
$kam .=mysql_Result($dotazmail,$pom,"email"); // retezec
endif;
endfor;
$obsah=StrTr($obsah,
"\x8A\x8D\x8E\x9A\x9D\x9E",
"\xA9\xAB\xAE\xB9\xBB\xBE");
$obsah=Base64_Encode($obsah);
$hlavicka .="From: ".$GLOBALS["infoadr"]."\n".
"Bcc: ".$kam."\n".
"MIME-Version: 1.0\n".
"Content-Type: text/plain; charset=\"iso-8859-2\"\n".
"Content-Transfer-Encoding: base64";
$kam=$GLOBALS["infoadr"]; // nahrazeni kompletniho seznamu cilovych adres, ktery je jiz ulozen v hlavicce, informacni adresou
// odeslani e-mailu
if (Mail($kam,$predmet,$obsah,$hlavicka)):
echo "<p align=\"center\" class=\"txt\">Dopis(y) byl(y) úspěšně odeslán(y)!</p>\n";
else:
echo "<p align=\"center\" class=\"txt\">Error R3: Dopis nebyl odeslán.</p>\n";
endif;
// konec odesilani
}
pak ve wengine.php nahradit radek
OdesliMail("Do systemu byl pridan novy clanek cislo: ".$GLOBALS["aelink"]." - ".$GLOBALS["aetitulek"]."","Novy clanek cislo: ".$GLOBALS["aelink"]."");
radkem
Odesilac("Mame novy clanek - ".$GLOBALS["aelink"]." ","Info z webu www.neco.cz");
nerucim za spravnost
--
[ SAFUS.EU | OFFLINE | FOREVER ]
Celkem upraveno 1×. Poslední úprava Michalek v 11.12.2004 18:45.