IDC资讯中心
最近看到充许多网友要用自动发邮件的讨论, 这个东东我以前也研究过现在把它发布到这儿,希望能给大家带来用处:
<%
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是端口号
