E-mails Em Massa

[ramon]

Como eu faço para enviar um e-mail para todos os cadastrados do meu forum Invision 1.3?

[Tenko]

Fiz um esquema parecido, não sei se você vai concordar.

Usei um select no banco buscando todos os emials que devem ser enviados na data escolhida pelo usuário, ordenei por código e fiz um while na função mail.

Dá uma olhada no código....

Código ================================================================

<?php

require_once "lib/intranet.php";

require_once "lib/start.php";

$sData = date( "Y/m/d" );

$sSql = " select * from webmail where maildata = '" .$sData. "'";

$sResult = db_query( $sSql );

$nLinhas = db_rows( $sResult );

if( $nLinhas == 0 ){

}else{

enviaMail();

}

?>

<?php

function enviaMail(){

$sData = date( "Y/m/d" );

$sSql = " select ";

$sSql .= " mailid as COD , ";

$sSql .= " mailassu as ASSUNTO , ";

$sSql .= " mailreme as REMETENTE , ";

$sSql .= " mailmens as MENSAGEM ";

$sSql .= " from webmail ";

$sSql .= " where maildata = ";

$sSql .= " '" .$sData. "' ";

$sSql .= " order by COD ";

$sResult = db_query( $sSql );

while( $sLinha = db_fetch_array( $sResult )){

$sAssuntoM = $sLinha[ "ASSUNTO" ];

$sMensagemM = $sLinha[ "MENSAGEM" ];

$sRemetenteM = $sLinha[ "REMETENTE" ];

$sEMail = "rodrigues@shx.com.br";

$sDtAtual = date('d/m/Y');

$sAssunto = $sAssuntoM;

$sMensagem = $sMensagemM;

$sCabecalhos = "MIME-Version: 1.0" . "\r\n";

$sCabecalhos .= "Content-type: text/html; charset=iso-8859-1" . "\r\n";

$sCabecalhos .= "From: $sRemetenteM <$sRemetenteM@shx.com.br>" . "\r\n";

$sCabecalhos .= "To: <" . $sEMail . ">" . "\r\n";

mail( $sEMail, $sAssunto, $sMensagem, $sCabecalhos );

$iCont += 1;

}

echo "<font color='#800000' face='verdana' size=2><b>".$iCont." </b></font>

<font color='#000000' size=2 face='verdana'>Emails enviados com sucesso...

<br><b>Beleza!!!!!!!!</b></font>";

}

?>