windows 2003下利用CDOSYS组件发送邮件,实现注册后自动回复邮件

开场白:经过几日几夜的艰苦奋战,终于实现了利用CDOSYS组件发送邮件,实现注册后自动回复邮件。

 

附加说明:在百度,谷歌上搜索了N篇文章,没有找到一篇全面的技术文章。所以在这里,我觉得有必要,留下自己的心得,以便供有需要的找到,少走弯路。如果看了文章后还有问题可以联系我,在网页的下面有我的联系方式,或者直接EMAIL到ckj2018@gmail.com 。本文原文作者“特工”,属于www.web1388.com技术原创,如有转载,请注明原文地址。

 

第一步:确定核心代码是正确的:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
If Not Isempty(Request("send")) Then
on error resume next
Dim Mail
Set Mail=Server.CreateObject("CDO.Message")
Mail.From=Request.Form("mailfrom")  '设置发件人的邮箱地址
Mail.To=Request.Form("mailto")  '设置收件人的邮箱地址
Mail.Subject=Request.Form("mailsubject") '设定邮件主题
Mail.HtmlBody=Request.Form("mailbody")  '设定邮件内容
Mail.Send  '执行发送命令
Set Mail=Nothing  '释放对象
If err<>0 Then
  sendmail=err.description
  Response.Write err
  Response.Write err.description
  Response.Write("<script language='JavaScript'>alert('邮件发送失败,请核实输入内容是否准确!');history.back();</script>")

Else
  Response.Write("<script language='JavaScript'>alert('利用CDOSYS组件发送邮件成功!');window.location.href='index.asp';</script>")
End If
End If
%>

注意点:<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>这个绝对不能少。

 

第二步:

运行本程序,需注册cdosys.dll组件。

 

第三步:服务器的权限必须打开

开放INTERNET来宾的权限。如果有必要也可以把everyone的权限放开。

 

第四步:

C:\Inetpub\mailroot\Pickup 需打开权限。

 

第五步:如果还不行,请安装组件stmp

 

祝您好运

  网友评论:(只显示最新10条。评论内容只代表网友观点,与本站立场无关!)