Rank: 6 Rank: 6

帖子: 709
积分: 3845
金钱: 646
在线时间: 475 小时
注册时间: 2010-7-3
最后登录: 2018-7-25

1^# 跳转到 » 倒序看帖

字体大小: tT

345139759发表于 2012-2-23 17:54 | 只看该作者

用PHP写了个邮件群发，不知道可以用不

本帖最后由 345139759 于 2012-2-23 17:56 编辑

<?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网址导航：http://www.5556.info ，5556搜索引擎大全：http://so.5556.info 。谢谢，如果有疑问，可以咨询我们，QQ282121649.");

writewj();

}
?>

用法：新建一个tongji.txt文件，把文件放在相同目录，在tongji.txt里面写入开始发的邮件地址，然后试试

5556网址导航：http://www.5556.info

顺便打下广告：http://www.5556.info/

. 8a短网址

管理员

Rank: 9 Rank: 9 Rank: 9

帖子: 8705
积分: 27266
金钱: 8451
在线时间: 1895 小时
注册时间: 2009-4-18
最后登录: 2023-10-10

2^#

idc886发表于 2012-2-23 22:45 | 只看该作者

楼主，，试成功没？

★ 11月开空间新规则，百度GG收录百贴：http://idc866.com/thread-15155-1-1.html
★ 本站转型：推荐免费空间，收集免费空间，免费空间测试，并提供原创申请教程。
★ 免备案空间，免费空间，免费国外空间，国外免费空间，免费美国空间
★ 我们是一群辛勤的小站站长，我们需要团结，我们需要共同进步！！！！
★ 达要求开空间，论坛发申请贴后，请加QQ：876812422 (一般在线、有Q必回)

其实，分享也是一种快乐！！有分享，才会有学习，才会有进步！快来分享你的快乐！

TOP

中级会员

Rank: 3 Rank: 3

帖子: 101
积分: 580
金钱: 103
在线时间: 74 小时
注册时间: 2010-5-29
最后登录: 2015-4-2

3^#

smm173发表于 2012-2-24 01:05 | 只看该作者

我试了，没成功。。php文件运行不完，而tongji.txt也会被更改为只有一个“1”。不知道是我的方法不对还是咋回事。。

TOP

中级会员

Rank: 3 Rank: 3

帖子: 184
积分: 755
金钱: 184
在线时间: 77 小时
注册时间: 2011-5-18
最后登录: 2014-4-9

4^#

mrlong发表于 2012-2-24 17:08 | 只看该作者

楼主能不能写个php在线管理文件的程序啊谢谢啦！

TOP

中级会员

Rank: 3 Rank: 3

帖子: 113
积分: 697
金钱: 114
在线时间: 90 小时
注册时间: 2010-6-16
最后登录: 2014-4-28

5^#

sam1414发表于 2012-2-25 03:43 | 只看该作者

本帖最后由 sam1414 于 2012-2-25 03:59 编辑

还是要出手!其实没有必要令程式这么复杂!最简单的只要用到php的array和for loop就可以成功开发!可是郵件地址要一個一個打上去

还是不明白的就看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>"; //確認信息,無需更改
}
?>

复制代码

電郵列表

<?php
$mail[]="test1@test.com";
$mail[]="test2@test.com";
$mail[]="test3@test.com";
$mail[]="test4@test.com";
?>

复制代码

最后,把电邮列表及主程式放到同一目录,然后运行主程式就可以!

已完成测试,证实可成功运行!

求加分阿~~

另外,如果要转载,请保留本回覆的url连结!

TOP

中级会员

Rank: 3 Rank: 3

帖子: 113
积分: 697
金钱: 114
在线时间: 90 小时
注册时间: 2010-6-16
最后登录: 2014-4-28

6^#

sam1414发表于 2012-2-25 03:48 | 只看该作者

还有一点,就是电邮列表并没有人数限制,只要你按照格式新增,就可以了!

TOP

中级会员

Rank: 3 Rank: 3

帖子: 113
积分: 697
金钱: 114
在线时间: 90 小时
注册时间: 2010-6-16
最后登录: 2014-4-28

7^#

sam1414发表于 2012-2-25 04:10 | 只看该作者

想到方法了,但先去睡觉,明天才更新一下!等我~~

TOP

中级会员

Rank: 3 Rank: 3

帖子: 113
积分: 697
金钱: 114
在线时间: 90 小时
注册时间: 2010-6-16
最后登录: 2014-4-28

8^#

sam1414发表于 2012-2-25 17:37 | 只看该作者

基於qq的電郵是數字@qq.com,所以只要對程式的loop部份作出小量更改就可以了!

<?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>"; //確認信息,無需更改
}
?>