用cdont组件发邮件

发表于:2007-06-30来源:作者:点击数: 标签:
最近看到充许多网友要用自动发邮件的讨论, 这个东东我以前也研究过现在把它发布到这儿,希望能给大家带来用处: % fromwho=request(fromwho) frommail=request(frommail) towho=request(towho) tomail=request(tomail) subject=request(subject) content=reques
最近看到充许多网友要用自动发邮件的讨论, 这个东东我以前也研究过现在把它发布到这儿,希望能给大家带来用处:
<%
fromwho=request("fromwho")
frommail=request("frommail")
towho=request("towho")
tomail=request("tomail")
subject=request("subject")
content=request("content")
title=request("title")
%>
<%
@#建立一个CDONTS.NEWMAIL对象

set objmail=server.createobject("cdonts.newmail")
@#设置寄件人
objmail.from=fromwho
objmail.from=frommail
@#设置收件人
objmail.to=towho
objmail.to=tomail
@#设置邮件主题
objmail.subject=subject
@#设置邮件内容
objmail.body=content&title&towho&fromwho
@#将邮件格式设成HTML,若没有这两行,则默认的是txt格式
@#objmail.bodyformat=0
@#objmail.mailformat=0
objmail.send
%>
<%
response.write"<script language=javascript>alert(@#你已经成功寄出了!!!@#);</script>"
response.write"<script language=javascript>window.location.href=@#vbscript:history.back@#</script>"

%>

这个程序已经测试通过的



--------------------------------------------------------------------------------
关于这篇文章的评论 [注意:这里仅仅是给大家提供了一个发表对文章本身看法的地方,如果有疑问,请到论坛提出] 我要提问!
hyijiao 2003-10-14 11:33:00

請問如何把下面的JMAIL改成用MS.Cdonts 發郵件?謝謝
--------------------------------------------------------------------------------
您好!

  請問如何把下面的JMAIL改成用MS.Cdonts 發郵件?謝謝!

Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = "mail.powercord911.com:25"
JMail.Sender = "mis@powercord911.com"
JMail.Subject = "您的登录密码"
JMail.AddRecipient(rsuserinfo.Fields.Item("useremail").Value)
JMail.Body = "尊敬的用户您好,首先感谢您使用我们的服务!." & vbCrLf & vbCrLf
JMail.Body = JMail.Body & "您的用户名是:" &(rsuserinfo.Fields.Item("user_name").Value) & vbCrLf
JMail.Body = JMail.Body & "您的注册邮箱是:" &(rsuserinfo.Fields.Item("useremail").Value) & vbCrLf
JMail.Body = JMail.Body & "您的登录密码是:" &(rsuserinfo.Fields.Item("fpassword").Value) & vbCrLf
JMail.Body = JMail.Body & "请妥善保管您的密码,如再次遗忘密码,请登录至本站取回您的密码,谢谢您使用本系统。" & vbCrLf
JMail.Body = JMail.Body & "顺祝商祺!" & vbCrLf
JMail.Body = JMail.Body & "××××××有限公司"
JMail.Priority = 3
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
JMail.Execute

在以上代码中两句代码:
JMail.ServerAddress = "mail.powercord911.com:25"
JMail.Sender = "mis@powercord911.com"

mail.powercord911.com:25是你的发送邮件服务器,25是端口号


原文转自:http://www.ltesting.net