最近看到充许多网友要用自动发邮件的讨论, 这个东东我以前也研究过现在把它发布到这儿,希望能给大家带来用处:
<%
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""
response.write""
%>
这个程序已经测试通过的
--------------------------------------------------------------------------------
关于这篇文章的评论 [注意：这里仅仅是给大家提供了一个发表对文章本身看法的地方，如果有疑问，请到论坛提出] 我要提问!
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是端口号