Help
Posted 04 November 2005 - 10:29 AM
PHP
<?
$mens = "<html>\n<head>\n<title>PBr.Mail 1.0</title>\n
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=iso-8859-1\" />
</head>\n<body>\n<table width=\"100%\">\n<tr>\n <th colspan=\"2\">PBr.Mail 1.0</th>\n</tr>\n<tr>
<td><H2><i>O Bombeiro</i></H2><br>
<img src=\"imagem.gif\" alt=\"H4CK3R\"></td>
<td><p align=justify>O homem volta para casa, depois de horas combatendo o fogo, doido para dar um bimbada\n com a esposa.<br>
Tudo encontra-se na mais completa escuridão e a esposa está choramingando na cama, reclamando de dor de cabeça.\n Tira o uniforme no escuro mesmo, fazendo carinhos na mulher.<br>
— Não, querido, hoje não. Estou para morrer de dor de cabeça. Nem acenda a luz, que qualquer luzinha me \nirrita.<br>
— Então, querida, vou pegar um remedinho na sala.<br>
— Nãão, amor. Não me acenda nenhuma luz, por favor. Vá até a farmácia do seu Zé e compra um remédio pra mim, \nvá.<br>
O marido, assustado, veste-se no escuro mesmo e corre para a farmácia:<br>
— Seu Zé, me vê um remédio para dor de cabeça, urgentemente, que minha mulher está para morrer, gemendo na \ncama.<br>
— Tudo bem, mas me responda uma coisa: o senhor não é bombeiro?<br>
— Sou, e daí?<br>
— O que 'tá fazendo vestido de guarda noturno?</p></td>
</tr>\n</table>\n</body>\n</html>";
$boundary = "--_".date("Y-m-d H:i:s")."_--\r\n";
$header = "From: Wanderson Regis<wanderson@provedor.com.br>\r\n";
$header .= "To: Wanderson<wregis@provedor.com.br>\r\n";
$header .= "MIME-version: 1.0\r\n";
$header .= "Content-Type: text/html; boundary=\"".$boundary."\"\r\n";
$header .= "X-Mailer: PBr.Mail 1.0 - PHP ". phpversion() . "\r\n";
$corpo = $boundary;
$corpo .= "Content-Type: text/html; charset=iso-8859-1\r\n";
$corpo .= $mens;
$corpo .= $boundary;
$arquivo = "imagem.gif";
$fp = fopen($arquivo, "r");
$le = fread($fp, filesize($arquivo));
$ls = chunk_split(base64_encode($le));
fclose($fp);
$corpo .= "Content-Type: image/gif; name=\"".$arquivo."\"\n";
$corpo .= "Content-Transfer-Encoding: base64\r\n";
$corpo .= $ls."\r\n";
$corpo .= $boundary;
$para = "wregis@provedor.com.br";
$assu = "Wanderson - PBr.Mail 1.0 > Mensagem de teste";
if(@mail($para,$assu,$corpo,$header)){
echo "Mensagem enviada";
}else{
echo "Falha no envio";
}
?>
$mens = "<html>\n<head>\n<title>PBr.Mail 1.0</title>\n
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=iso-8859-1\" />
</head>\n<body>\n<table width=\"100%\">\n<tr>\n <th colspan=\"2\">PBr.Mail 1.0</th>\n</tr>\n<tr>
<td><H2><i>O Bombeiro</i></H2><br>
<img src=\"imagem.gif\" alt=\"H4CK3R\"></td>
<td><p align=justify>O homem volta para casa, depois de horas combatendo o fogo, doido para dar um bimbada\n com a esposa.<br>
Tudo encontra-se na mais completa escuridão e a esposa está choramingando na cama, reclamando de dor de cabeça.\n Tira o uniforme no escuro mesmo, fazendo carinhos na mulher.<br>
— Não, querido, hoje não. Estou para morrer de dor de cabeça. Nem acenda a luz, que qualquer luzinha me \nirrita.<br>
— Então, querida, vou pegar um remedinho na sala.<br>
— Nãão, amor. Não me acenda nenhuma luz, por favor. Vá até a farmácia do seu Zé e compra um remédio pra mim, \nvá.<br>
O marido, assustado, veste-se no escuro mesmo e corre para a farmácia:<br>
— Seu Zé, me vê um remédio para dor de cabeça, urgentemente, que minha mulher está para morrer, gemendo na \ncama.<br>
— Tudo bem, mas me responda uma coisa: o senhor não é bombeiro?<br>
— Sou, e daí?<br>
— O que 'tá fazendo vestido de guarda noturno?</p></td>
</tr>\n</table>\n</body>\n</html>";
$boundary = "--_".date("Y-m-d H:i:s")."_--\r\n";
$header = "From: Wanderson Regis<wanderson@provedor.com.br>\r\n";
$header .= "To: Wanderson<wregis@provedor.com.br>\r\n";
$header .= "MIME-version: 1.0\r\n";
$header .= "Content-Type: text/html; boundary=\"".$boundary."\"\r\n";
$header .= "X-Mailer: PBr.Mail 1.0 - PHP ". phpversion() . "\r\n";
$corpo = $boundary;
$corpo .= "Content-Type: text/html; charset=iso-8859-1\r\n";
$corpo .= $mens;
$corpo .= $boundary;
$arquivo = "imagem.gif";
$fp = fopen($arquivo, "r");
$le = fread($fp, filesize($arquivo));
$ls = chunk_split(base64_encode($le));
fclose($fp);
$corpo .= "Content-Type: image/gif; name=\"".$arquivo."\"\n";
$corpo .= "Content-Transfer-Encoding: base64\r\n";
$corpo .= $ls."\r\n";
$corpo .= $boundary;
$para = "wregis@provedor.com.br";
$assu = "Wanderson - PBr.Mail 1.0 > Mensagem de teste";
if(@mail($para,$assu,$corpo,$header)){
echo "Mensagem enviada";
}else{
echo "Falha no envio";
}
?>
