- EOT;
- $mail->AltBody ="text/html";
- if($mail->Send())
- {
- info_write("ok.txt","$user_name 发送成功");
- }
- else {
- info_write("falied.txt","$user_name 失败, 错误信息 $mail->ErrorInfo");
- }
- }
- // 发送 Email 函数结束
- // 写入发送结果函数, 错误日志记录
- function info_write($filename,$info_log)
- {
- $info.= $info_log;
- $info.="\r\n";
- $fp = fopen ($filename,a);
- fwrite($fp,$info);
- fclose($fp);
- }
- // 定时跳转页面 函数 其中 1000 是时间, 1 秒, 您可以自定义
- function redirect($url)
- {
- echo "script
- function redirect()
- {
- window.location.replace('$url');
- }
- window.setTimeout('redirect();', 15000);
- script";
- }
- // 读取文本 邮件地址 您也可以读 数据库
- $filename = "email.txt";
- $fp = fopen($filename,"r");
- $contents = fread($fp,filesize($filename));
- $list_email=explode("\r\n",$contents);
- $len=count($list_email);
- fclose($fp);
- // 参数说明(发送到, 邮件主题, 邮件内容, 附加信息, 用户名)
- $i = $_GET['action'];
- $i++;
- if ($i<$len)
- {
- $rs=explode("@",$list_email[$i]);
- $user_name = $rs['0'];
- echo "正在发送第 {$i} 封({$list_email[$i]})邮件......{$user_name}";
- smtp_mail($list_email[$i], 'Treasurery Online 周刊第十二期', $body, 'http://www.yem120.com/', $user_name);
- redirect("?action=$i");
- }
- else {
- echo "邮件全部发送完毕";
- exit;
- }
- ?>
来源: https://www.php1.cn/detail/php-73cbe6ba76.html