我用JMAIL编了一个发送邮件的程序，但是接收方总是接收不了，这是为什么呢？以下是我的源码： function SetMail(MailAddress,Subject,Body)

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 = TNet_Mail_ServerAddress '发送邮件的服务器 jmail.AddRecipient MailAddress '邮件的收件人 jmail.SenderName = TNet_WebName '邮件发送者的姓名 jmail.Sender = TNet_Mail_Sender '邮件发送者的邮件地址 jmail.Priority = 1 '邮件的紧急程序，1 为最快，5 为最慢， 3 为默认值 jmail.Subject = subject '邮件的标题 jmail.Body = body '邮件的内容 jmail.Execute() '执行邮件发送 jmail.Close '关闭邮件对象 end function 其中： Const TNet_Mail_Sender = "service@nihaophoto.com" '邮件发送者的邮件地址 Const TNet_Mail_UserName = "service@nihaophoto.com" Const TNet_Mail_Password = "nihaophoto" Const TNet_Mail_ServerAddress = "mail.nihaophoto.com"