QTP调用jmail方法，但发送失败，请问是什么原因？已经安装了jmail组件

deadhunter

Call SendMail()
Function SendMail()   
'函数参数说明（"收件人地址","收件人姓名(可选)","主题","邮件内容","发件人姓名(可选)","发件人地址"）
'on error resume next
Set JMail = CreateObject("JMail.Message")   
JMail.Charset = "gb2312" '邮件编码
JMail.silent = True '出错时是否继续执行
JMail.ContentType = "text/html" '邮件正文格式
JMail.MailServerUserName = "123123@163.com"  '登录用户名
JMail.MailServerPassWord = "123123" '登录密码
JMail.MailDomain = "mail.163.com"   '域名（如果用"name@domain.com"这样的用户名登录时，请指明domain.com），可选
JMail.AddRecipient "123123@qq.com", "test" '收信人邮箱和收信人名称
JMail.Subject = "测试" '主题
JMail.Body = "A nice picture if you can read HTML-mail."  
JMail.FromName = "123123" '发信人姓名
JMail.From = "123123@163.com" '发信人Email
JMail.Priority = 1 '邮件等级，1为加急，3为普通，5为低级
JMail.Send("mail.163.com") '用来发送邮件的SMTP服务器
JMail.Close
Set JMail = Nothing

End Function

deadhunter

自己顶起来

deadhunter

高手们

deadhunter

都是我在顶

wower1985

曾经试过，也是没反映，代码就那样了，配置问题、参数问题吧，你成功了告诉我声、、、、、