大家帮忙测试一下这个邮件发送程序

[starytx]

<%
Sub SendAction(subject, mailaddress, email, sender, content, fromer)
Set jmail = Server.CreateObject("JMAIL.SMTPMail") '创建一个JMAIL对象
jmail.silent = true 'JMAIL不会抛出例外错误，返回的值为FALSE跟TRUE
jmail.logging = true '启用使用日志
jmail.Charset = "GB2312" '邮件文字的代码为简体中文
jmail.ContentType = "text/html" '邮件的格式为HTML的
jmail.ServerAddress = mailaddress '发送邮件的服务器
jmail.AddRecipient Email '邮件的收件人
jmail.SenderName = sender '邮件发送者的姓名
jmail.Sender = fromer '邮件发送者的邮件地址
jmail.Priority = 1 '邮件的紧急程序，1 为最快，5 为最慢， 3 为默认值
jmail.Subject = subject '邮件的标题
jmail.Body = content '邮件的内容
'由于没有用到密抄跟抄送，这里屏蔽掉这两句，如果您有需要的话，可以在这里恢复
'jmail.AddRecipientBCC Email '密件收件人的地址
'jmail.AddRecipientCC Email '邮件抄送者的地址
jmail.Execute() '执行邮件发送
jmail.Close '关闭邮件对象
End Sub
%>
<%
Dim strSubject,strEmail,strMailAdress,strSender,strContent,strFromer
strSubject = "大洋宝隆发给您的密码"
strContent = "您的密码是 1234567 请注意妥善保管"
strEmail = ("[e-mail]")
strFromer = "[e-mail]"
strMailAddress = "smtp.163.com"
Call SendAction (strSubject,strMailaddress,strEmail,strSender,strContent,strFromer)
%>

[xtuwz]

老大,要組件呀,給個下載的地方呀

[starytx]

哦，不好意思。http://zx.hellozz.com/downinfo/3657.html

[starytx]

阿普

[starytx]

怎么没人帮忙呀，郁闷哪

[3573745]

呵呵
我刚新作不久的一个东西跟你类似
www.zgjw.net
那个取回密码的功能.
我是生成随机六位的数字的新密码.
以及测试了很多次了.

[3573745]

这些东西反正就这么多功能.
没有什么好研究的

[starytx]

不是生成密码的问题，是发送邮件的问题。不知道能不能发

[starytx]

不好意思，少了个参数strSender="大洋宝隆"。大伙帮帮忙呀

[3573745]

忘记了
jmail 发邮件是肯要用户名和密码的.
你这里好像没有
所以估计发不出.

[starytx]

那用户名和密码是不是发件人登陆的邮箱名和密码呢？还是其他需要申请的什么东西？

[zhanghongwen]

http://www.xbasp.net/Article_Show.asp?ArticleID=2703
自己去看吧,很多转换数据类型的函数.

[starytx]

我不是要转换数据类型的函数的。我是想让大家帮着测试一下这个发送邮件程序能不能发邮件？程序中还需要什么东西不？有人说要用户名和密码，我不知道是什么用户名和密码，比如我要给别人发邮件，是不是要我的邮箱的登录用户名和密码？

[starytx]

up

[starytx]

用过jmail的帮帮忙嘛，测试麻烦的话，看看程序有没有问题也行啊

[jhwcd]

我先学习一下！