日期:2014-05-17  浏览次数:21107 次

用Jmail组件发邮件没反应WIN7系统
代码如下。新注册个用户。就自动发送邮件。但是没出错也没回应。都不知道是不是WIN7用不了Jmail组件。哎。。 
dim JMail
set JMail=server.CreateObject("Jmail.message")

  JMail.Silent=true
JMail.Charset = "utf-8" '邮件字符编码
jmail.ContentType = "text/html"
jmail.Priority = 1
  JMail.FromName = "johndon1983" '发送人姓名
  JMail.from = "johndon1983@sina.com" '发送人的邮箱地址
  JMail.AddRecipient request.form("email") '收信人的邮箱地址和姓名
JMail.Subject = "感谢注册本站会员" '邮件标题
  jmail.Body= Request.Form("用户名") & ":感谢您注册本站会员,请记住你的用户名:" & Request.Form("用户名") & ",密码:" & Request.Form("密码") '邮件主要内容

  JMail.MailServerUserName = "johndon1983@sina.com" '发信人的邮箱登录用户名
  JMail.MailServerPassWord = 123465 '发信人的邮箱登录密码,读者应该修改为自己邮箱系统的系统配置
  JMail.MailDomain = "pop.sina.com" '发送人的接收邮件服务器
  sendok=JMail.send("smtp.sina.com") '利用send方法从发送人的发送邮件服务器发送邮件
if sendok then '发送结果,返回一个逻辑值,为true表示成功,否则失败
msg="已经成功发送了邮件!"
else
msg="发送邮件失败,可能是您填写了错误的邮件地址。<br>" & _
"如果您确信没有写错邮件地址,则可能是发信程序出了<br>" & _
"故障,请与管理员联系"
end if
jmail.close()

------解决方案--------------------
你的win7什么位的?Jmail好像只有32位的