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

我有个人才网,需要的功能是个人和企业注册后向注册的邮箱里发送一封邮件,告诉注册的用户名和密码,但是不论我如何修改.都没有收到邮件,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