用PHP写了个邮件群发，不知道可以用不
[i=s] 本帖最后由 345139759 于 2012-2-23 17:56 编辑 [/i]<?php
$filename = "tongji.txt";
$fp = fopen($filename,'w+');
$GLOBALS['tongji']=fread($fp,filesize($filename));
fclose($fp);
writewj();
function writewj(){
$tongji++;
$filename1 = "tongji.txt";
$fp1 = fopen($filename1,'w');
$neirong = fwrite($fp1,$tongji);
fclose($fp1);
fyj();
}
function fyj(){
mail($tongji."@qq.com","让您享受最好的上网主页！","5556网址导航：[url=http://www.5556.info]http://www.5556.info[/url] ，5556搜索引擎大全：[url=http://so.5556.info]http://so.5556.info[/url] 。谢谢，如果有疑问，可以咨询我们，QQ282121649.");
writewj();
}
?>
用法：新建一个tongji.txt文件，把文件放在相同目录，在tongji.txt里面写入开始发的邮件地址，然后试试
5556网址导航：[url=http://www.5556.info]http://www.5556.info[/url]
顺便打下广告：[url=http://www.5556.info/]http://www.5556.info/[/url] 楼主，，试成功没？ 我试了，没成功。。php文件运行不完，而tongji.txt也会被更改为只有一个“1”。不知道是我的方法不对还是咋回事。。 楼主能不能写个php在线管理文件的程序啊 谢谢啦！ [i=s] 本帖最后由 sam1414 于 2012-2-25 03:59 编辑 [/i]
还是要出手!其实没有必要令程式这么复杂!最简单的只要用到php的array和for loop就可以成功开发!可是郵件地址要一個一個打上去
还是不明白的就看code吧!
主程式[code]
<?php
include "./list.php"; //插入電郵列表
$length = count($mail); //取得電郵列表總數
for($i=0; $i<$length; $i++){
$mailto = $mail[$i];
$subject = "PHP Mail Test"; //郵件主題
$message = "Only test, don't reply"; //郵件內容
$headers = 'Content-type: text/plain; charset="utf8"' . "\r\n"; //郵件編碼,如非郵件亂碼,請勿更改
$headers = 'From: admin@ehost-hk.coms.hk' . "\r\n"; //發件人電郵
mail($mailto, $subject, $message, $headers);
echo "E-mail has been sent to ".$mail[$i]."</br>"; //確認信息,無需更改
}
?>
[/code]電郵列表[code]
<?php
$mail[]="test1@test.com";
$mail[]="test2@test.com";
$mail[]="test3@test.com";
$mail[]="test4@test.com";
?>
[/code]
最后,把电邮列表及主程式放到同一目录,然后运行主程式就可以!
已完成测试,证实可成功运行!
求加分阿~~
另外,如果要转载,请保留本回覆的url连结! 还有一点,就是电邮列表并没有人数限制,只要你按照格式新增,就可以了! 想到方法了,但先去睡觉,明天才更新一下!等我~~ 基於qq的電郵是數字@qq.com,所以只要對程式的loop部份作出小量更改就可以了![code]
<?php
$start = "9123456789"; //開始電郵
$end = "9876543210"; //結束電郵
for($i=$start; $i<$end; $i++){
$mailto = $i."@qq.com";
$subject = "PHP Mail Test"; //郵件主題
$message = "Only test, don't reply"; //郵件內容
$headers = 'Content-type: text/plain; charset="utf8"' . "\r\n"; //郵件編碼,如非郵件亂碼,請勿更改
$headers = 'From: admin@ehost-hk.coms.hk' . "\r\n"; //發件人電郵
mail($mailto, $subject, $message, $headers);
echo "E-mail has been sent to ".$i."@qq.com</br>"; //確認信息,無需更改
}
?>
[/code] [b]回复 [url=http://www.idc866.com/redirect.php?goto=findpost&pid=108294&ptid=14839]8#[/url] [i]sam1414[/i] [/b]
倒。。。
这个还可以连续 发QQ邮箱？！！ [b]回复 [url=http://www.idc866.com/redirect.php?goto=findpost&pid=108236&ptid=14839]5#[/url] [i]sam1414[/i] [/b]
哦，这个测试成功。
楼主的代码，测试未成功！ 楼主看哪里贴错误了。 [quote]回复 sam1414
倒。。。
这个还可以连续 发QQ邮箱？！！
[size=2][color=#999999]idc886 发表于 2012-3-2 21:57[/color] [url=http://idc866.com/redirect.php?goto=findpost&pid=108812&ptid=14839][img]http://idc866.com/images/common/back.gif[/img][/url][/size][/quote]是的，这个就是连续发QQ邮箱的。
页:
[1]
