在线求教“怎么实现系统自动发邮件？”

topgenehon 2004-03-27 10:06:41

网上很多用户密码不记得了，实现邮件找回密码
这个邮件发送，由系统来完成，里面要调用的对象和参数是什么样？
有代码最好，非常感谢！

...全文

1488 16 打赏收藏转发到动态举报

写回复

用AI写文章

16 条回复

切换为时间正序

请发表友善的回复…

发表回复

fengbp 2004-03-28

打赏
举报

可以上传一个ASP探针看看服务器支不支持JMAIL和其它邮件控件

topgenehon 2004-03-28

打赏
举报

我在测试。谢谢各位。调试完毕来结贴。

bingbingcha 2004-03-28

打赏
举报

当然要装JMAIL邮件组件啊。。现在很多空间都支持。

topgenehon 2004-03-28

打赏
举报

错误类型：
Server 对象, ASP 0177 (0x800401F3)
Invalid class string
/email.asp, 第 68 行
A：Set ASPMAIL= Server.CreateObject("ASPMAIL.ASPMailCtrl.1")

B：Set JMail=Server.CreateObject( "JMail.SMTPMail ")
两种方法都是这个报错，是不是iis要装什么组建？

yong1268 2004-03-28

打赏
举报

topgenehon 2004-03-28

打赏
举报

to:s1ihome
cdonts不就足够了
怎么实现呢？
调试了好久，也不知道发送成功没，一直没收到发的邮件

叮咚叮咚叮叮咚 2004-03-28

打赏
举报

jmail发信比较慢些~~~

我感觉一般用也就是发个普通邮件之类,cdonts不就足够了~~~也不大用考虑服务器是否装了jmail组件了~~~

topgenehon 2004-03-28

打赏
举报

to:qunluo(最爱白菜)
装了组件~调试了好久还是不行~
把你做的例子发我邮箱吧，参考参考，谢谢了
dream543210@sina.com

qyjiswgog 2004-03-28

打赏
举报

收获不小啊

fengbp 2004-03-28

打赏
举报

以上的Jmail限制版本要4.3.0以上的，如果是4.2.0就不能使用

4.2.0使用方式：
<%
Set JMail = Server.CreateObject("JMail.SMTPMail")
' 邮件服务器名称
JMail.ServerAddress = "mail.263.net.cn:25"
' 发件人的信箱
JMail.Sender = email
' 邮件标题
JMail.Subject = mailsubject
' 设置邮件的收件人信箱
JMail.AddRecipient "yourmail@mailhost.com"
'下面就是填表在内容区填写的内容，&是连接符，vbcrlf表示换行回车。
JMail.Body = mess
'设置邮件的优先级(1-5，1为最高)
JMail.Priority = 1
'执行发送任务；
JMail.Execute
%>

qunluo 2004-03-27

打赏
举报

推荐你使用：
回复人： jiangzheng3(歪歪) ( ) 信誉：100 2004-03-27 23:20:00 得分:0

<%
Set jmail = Server.CreateObject("JMAIL.Message") '建立发送邮件的对象
jmail.silent = true '屏蔽例外错误，返回FALSE跟TRUE两值j
mail.logging = true '启用邮件日志
jmail.Charset = "GB2312" '邮件的文字编码为国标
jmail.ContentType = "text/html" '邮件的格式为HTML格式
jmail.AddRecipient Email '邮件收件人的地址
jmail.From = "Email From for Sender" '发件人的E-MAIL地址
jmail.MailServerUserName = "UserName of Email" '登录邮件服务器所需的用户名
jmail.MailServerPassword = "Password of Email" '登录邮件服务器所需的密码
jmail.Subject = "Mail Subject" '邮件的标题
jmail.Body = "Mail Body" '邮件的内容
jmail.Prority = 1 '邮件的紧急程序，1 为最快，5 为最慢， 3 为默认值
jmail.Send("Server Address") '执行邮件发送（通过邮件服务器地址）
jmail.Close() '关闭对象
%>

jamil组件我一直只用它！好用！方便！！怎么像是广告词！

qunluo 2004-03-27

打赏
举报

这个思路其实也很简单的！需要改天可以给你我自己做的！
先接收用户名称查找在数据库中有无改用户======》有则出现用户自己的密码问题提示/无则退回或提示========》然后让用户添上信箱======》jmail组件发送就可以了！/或者直接显示改用户密码
关于发信的问题！可以在www.baidu.com里以“jmail组件发送邮件”搜索会非常多的！

歪歪 2004-03-27

打赏
举报

<%
'on error resume next
receiver="honge_3@hotmail.com"
mailbody="<html>"'邮件内容
mailbody=mailbody & "<body>"
mailbody=mailbody & "this is a texitsl"
mailbody=mailbody & "</body>"
mailbody=mailbody & "</html>"
filename="g3.gif" '附件文件名
path=Server.MapPath("other/"&filename) '附件的路径
set objmail=server.createobject("CDONTS.newmail")
objmail.to= receiver
objmail.from="loveanseng@vip.net"'发送邮件
objmail.subject="我是邮件标题"
objmail.body=mailbody
objmail.bodyformat=0
objmail.MailFormat=0
objmail.importance=2'邮件等级
objmail.AttachFile path,filename
objmail.send
set objmail=nothing

if err.number<>0 then
respnose.write err.description
err.clear
else
response.write "ok mail is sending "& receiver &" right."
end if
%>

歪歪 2004-03-27

打赏
举报

<%
Set jmail = Server.CreateObject("JMAIL.Message") '建立发送邮件的对象
jmail.silent = true '屏蔽例外错误，返回FALSE跟TRUE两值j
mail.logging = true '启用邮件日志
jmail.Charset = "GB2312" '邮件的文字编码为国标
jmail.ContentType = "text/html" '邮件的格式为HTML格式
jmail.AddRecipient Email '邮件收件人的地址
jmail.From = "Email From for Sender" '发件人的E-MAIL地址
jmail.MailServerUserName = "UserName of Email" '登录邮件服务器所需的用户名
jmail.MailServerPassword = "Password of Email" '登录邮件服务器所需的密码
jmail.Subject = "Mail Subject" '邮件的标题
jmail.Body = "Mail Body" '邮件的内容
jmail.Prority = 1 '邮件的紧急程序，1 为最快，5 为最慢， 3 为默认值
jmail.Send("Server Address") '执行邮件发送（通过邮件服务器地址）
jmail.Close() '关闭对象
%>

LeamonChen 2004-03-27