51Testing软件测试论坛

标题: QTP调用jmail方法，但发送失败，请问是什么原因？已经安装了jmail组件 [打印本页]

作者: deadhunter 时间: 2011-10-26 13:33
标题: QTP调用jmail方法，但发送失败，请问是什么原因？已经安装了jmail组件
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 时间: 2011-10-26 13:35
自己顶起来

作者: deadhunter 时间: 2011-10-26 13:35
高手们

作者: deadhunter 时间: 2011-10-26 15:42
都是我在顶

作者: wower1985 时间: 2011-10-27 11:22
曾经试过，也是没反映，代码就那样了，配置问题、参数问题吧，你成功了告诉我声、、、、、

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)