关于jmail发送邮件的问题,困绕多日,请大家帮看看啊

[bluecatk]

我有个人才网,需要的功能是个人和企业注册后向注册的邮箱里发送一封邮件,告诉注册的用户名和密码,但是不论我如何修改.都没有收到邮件,JMAIL组件已经安装.用IE调试没有任何错误提示.以下代码是负责发送邮件的部分.请加我QQ:7021857.非常感谢各位高手
Dim SendFlag
Dim Fso,objFile
Dim SendMail_ToMail,SendMail_Subject,SendMail_MailBody

If SendFlag = True Then
Set Fso = Server.CreateObject("Scripting.FileSystemObject")
Set objFile = Fso.OpenTextFile(Server.MapPath("Person_reg_Content.htm"))
SendMail_MailBody = objFile.ReadAll
objFile.Close
Set objFile = Nothing
Set Fso = Nothing


If SendMail_ToMail <> "" And SendMail_Subject <> "" Then
Qsite.SendMail_JMail SendMail_ToMail , SendMail_Subject , SendMail_MailBody
End If
end if

[sy_binbin]

set jmail = server.CreateObject ( "jmail.message ") ' '创建对象
jmail.Silent = true ' '一般不用改
jmail.Charset = "gb2312 " ' '信件的语言编码
jmail.ContentType = "text/html " ' '信件的格式html或纯文本
jmail.From = webEmail ' '发信人邮箱
jmail.FromName = webName ' '发信人姓名
jmail.Subject = "您在****网的注册信息！ " ' '信件主题
jmail.AddRecipient inceptEmailAdd ' '收信人地址
jmail.Body = strContent ' '信件正文
jmail.MailServerUserName = webEmailUserName ' '服务器登陆用户名(您的邮件地址)
jmail.MailServerPassWord = webEmailUserPWD ' '服务器登陆密码(您的邮件密码)
jmail.Send(webSmtp) ' '服务器地址
jmail.Close


jmail.MailServerUserName = webEmailUserName ' '服务器登陆用户名(您的邮件地址)
jmail.MailServerPassWord = webEmailUserPWD ' '服务器登陆密码(您的邮件密码)
jmail.Send(webSmtp) ' '服务器地址

[Anlige]

Jmail发邮件代码(测试成功,测试版本Jmail 4.4.0 Free Edition)

你要先确定您的邮件服务商给 你开通了smtp服务

----------------------------^_^大家一起学习^_^------------------------------
艾恩ASP学习博客 http://blog.ii-home.cn

Email:[e-mail] QQ:417833272

[bluecatk]

邮件服务商确认已经开通SMTP服务，

我发送的是包涵一个模板的文件

jmail的函数中已经定义过了

[sy_binbin]

Qsite.SendMail_JMail SendMail_ToMail , SendMail_Subject , SendMail_MailBody

这个是什么？？一个函数吗》？

代码帖出来

[jhwcd]

[Quote=引用 4 楼 sy_binbin 的回复:]
Qsite.SendMail_JMail SendMail_ToMail , SendMail_Subject , SendMail_MailBody

这个是什么？？一个函数吗》？

代码帖出来
[/Quote]