最新分享 » 编程设计 » ASP/PHP在线发送内容到邮箱的实例和完整代码

ASP/PHP在线发送内容到邮箱的实例和完整代码

时间:2009-9-27 作者:天空下的雨 分类: 编程设计 评论:0 浏览:6351

PHP发送订单或留言可以使用phpmailer的类来实现,可以使用变量来扩展。很多朋友遇到使用phpmailer的问题,第一有些虚拟主机是不支持的,第二正确的配置非常重要,第三邮箱不支持。错误分析:提示connect_host通常表示连接SMTP服务器配置错误或PHP服务器不支持此操作,提示recipients_failedaaa@test.com,是发送邮箱配置错误。

其实很简单这里就不多说了,下面是经过调试成功的代码和phpmailer类下载,供大家参考。

下载地址(天空下的雨修改版16K):phpmailer.rar

<?php
/*******************************
*   天空下的雨 调试
*******************************/
require_once("class.phpmailer.php");    'phpmailer类调用


$mail = new PHPMailer();   //建立对象
$mail->IsSMTP();               // 发送类型 SMTP
$mail->Host = "smtp.126.com"; // SMTP服务器
$mail->SMTPAuth = true;         // 是否验证
$mail->Username = "aaa@126.com";   // 用户名(普通邮件认证不需要加 @域名)
$mail->Password = "123456";        // 邮箱密码
$mail->From = "aaaa@126.com";      // 发件人邮箱,与SMTP服务器一致
$mail->FromName = "发件人名字" ;  // 发件人


$mail->CharSet = "GB2312";            // 页面编码,经测试使用uft-8收邮件可能会产生乱码
$mail->AddAddress("aaaa@68080.com","天空下的雨");  // 收件人邮箱和姓名
//$mail->AddReplyTo("aaa@68080.com","天空下的雨");  // 回复的地址和名字,可以不设置


//$mail->AddAttachment("/var/tmp/file.tar.gz");   // 附件部分
//$mail->AddAttachment("/tmp/image.jpg", "new.jpg");
$mail->IsHTML(true);    // 是否支持HTML
$mail->Subject = "邮件主题";  // 邮件主题


// 邮件内容
$mail->Body ='
<html><head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=GB2312">
</head>
<body>内容</body>
</html>
';                                                                      
$mail->AltBody ="text/html";
if(!$mail->Send())
{
  echo "邮件发送有误 <p>";
  echo "邮件错误信息: " . $mail->ErrorInfo;
  exit;
}
else {
  echo "邮件发送成功!<br />";
}
?>


ASP使用Jmail组件来实现邮件发送功能已经很常用了,代码如下:

<%
'==================================================
' 参数设置开始
myemail="chenzhou@73500.cn"    '用来接收邮件的邮箱,可以与SMTP服务器发信邮箱不同
smtpserver ="smtp.126.com"    '发送邮件所使用的SMTP服务器,例如smtp.163.com
smtpuser ="aaaa"   '与SMTP服务器对应的邮箱用户名
smtppwd ="123456"   '与SMTP服务器对应的邮箱密码
smtpemail ="aaa@126.com"   'SMTP服务器发信邮箱,与发送服务器对应
' 参数设置结束
'==================================================
sendname = trim(Request("ename"))  '发件人名字
email = myemail  '收件人邮箱
zhuti = trim(Request("zhuti"))    '邮件标题


mailbody=mailbody &"邮件的内容"    ‘内容部分1,可使用变量
mailbody=mailbody &"邮件的内容"   ‘内容部分2
 
if sendname <> "" and email <> "" then
set jmail= server.CreateObject ("jmail.message")  '调用Jmail组件
jmail.Silent = true
jmail.Charset = "gb2312"
JMail.ContentType = "text/html"
'=================================
'调用变量内容
jmail.From = smtpemail
jmail.FromName = sendname  
jmail.ReplyTo = email
jmail.Subject = zhuti   
jmail.AddRecipient myemail
jmail.Body = mailbody    
jmail.MailServerUserName = smtpuser
jmail.MailServerPassWord = smtppwd


isgo = jmail.Send(smtpserver)   '发送邮件
'=================================
if isgo then
msg="发送成功"
else
msg = "发送失败,请检查参数"
end if
jmail.Close
set jmail = nothing
end if
end if
%>