织梦Dede:自动给新注册会员发送欢迎邮件

显示全部楼层 · 2019-10-4 20:14

织梦Dede:自动给新注册会员发送欢迎邮件
昨天看了一位朋友发的，新用户注册邮件验证的帖子，我弄了下不能成功，于是把代码修改了下可以给新注册用户自动发送欢迎的邮件。

　　修改方法
　　进入/member/reg_new.php
　　找到//写入其它默认数据用以下代码覆盖//写入其它默认数据下面的所有代码
　　以下代码是我的网站的原代码,没有修改,请需要的用户自行修改

$dsql->ExecuteNoneQuery("INSERT INTO `dede_member_flink`(mid,title,url) VALUES
//发送验证邮件
if($cfg_md_mailtest=='Y')
{
$msg ="<html><head></head><body>";
$msg .= "".$uname." 恭喜您注册成为听烈火建站网的会员了！ ";
$msg .= "您的登陆帐号:".$userid." ";//这里，做了个小判断，如果是企业用户注册，则给多送条信息去。
$msg .= "您的登陆密码:已经设置隐藏 ";//
if($mtype=='企业'){
$msg .= "活动公告：马上完善您的资料信息，赠送1000积分！填写完后联系管理员！ ";
}
$msg .= "<a href=http://bbs.zidiu.com/member/login.php>登陆后您可以：</a> ";
$msg .= "<a href=http://bbs.zidiu.com/member/article_add.php>发表文章</a> ";
$msg .= "<a href=http://bbs.zidiu.com/book/mybooks.php>发起提问</a> ";
$msg .= "<a href=http://bbs.zidiu.com/member/content_sg_list.php?channelid=-9>发布网址</a> ";
$msg .= "活动公告：<a href=http://bbs.zidiu.com/member/edit_space_info.php>马上完善您的资料信息，赠送1000积分！填写完后联系管理员！</a> ";
$msg .= "如需帮助，请直接回复此邮件，联系管理员！ ";
$msg .= "这是一封由听自丢网站网-网站系统自动发送的邮件，请不要回复！ ";
$msg .= "<a href=http://bbs.zidiu.com/>欢迎您！</a> ";
$msg .= "</body></html>";
$mailbody = '';
//下面这个是邮件标题，上面的是邮件正文部分。
$mailtitle = "听烈火建站网欢迎您的加入";
$mailbody .= "$msg \r\n\r\n";
$headers = "From: ".$cfg_adminemail."\r\nReply-To: ".$cfg_adminemail;
if($cfg_sendmail_bysmtp == 'Y' && !empty($cfg_smtp_server))
{ //下面这里选择HTML网页方式发送，如果邮箱不支持HTML，就改为TXT，不过现在好像都支持HTML了吧。
$mailtype = 'HTML';
require_once(DEDEINC.'/mail.class.php');
$smtp = new smtp($cfg_smtp_server,$cfg_smtp_port,true,$cfg_smtp_usermail,$cfg_smtp_password);
$smtp->debug = false;
$smtp->sendmail($email, $cfg_smtp_usermail, $mailtitle, $mailbody, $mailtype);
}
else
{
@mail($email, $mailtitle, $mailbody, $headers);
}
$ml = new MemberLogin(7*3600);
$rs = $ml->CheckUser($userid,$userpwd);
ShowMsg("恭喜您注册成为自丢网建站网的会员了，您的电子邮件地址为( ".$email." )此邮箱为您取回密码的重要依据，系统已经发送了一封电子邮件到您的邮箱，请登陆您的邮箱查收!如果无法收到邮件，请马上联系管理员！","index.php",0,2000);
exit();
}
}
else
{
ShowMsg("注册失败，请检查资料是否有误或与管理员联系！","-1");
exit();
}
}
$sql = "desc dede_member";
$dsql->SetQuery($sql);
$dsql->Execute();
while ($row = $dsql->GetArray()) {
if($row['Field'] == 'mtype')
{
$types = $row['Type'];
break;
}
}
$types = str_replace(array('enum', '(', ')', '\''), '', $types);
$types = explode(',', $types);
require_once(DEDEMEMBER."/templets/reg-new.htm");
?>

复制代码

乐乐 · 2019-10-4 20:14

学习了，感谢自丢教程网

织梦Dede:自动给新注册会员发送欢迎邮件

相关帖子