deadhunter 发表于 2011-10-26 13:33:35

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:13

自己顶起来

deadhunter 发表于 2011-10-26 13:35:23

高手们

deadhunter 发表于 2011-10-26 15:42:41

都是我在顶

wower1985 发表于 2011-10-27 11:22:12

曾经试过,也是没反映,代码就那样了,配置问题、参数问题吧,你成功了告诉我声、、、、、
页: [1]
查看完整版本: QTP调用jmail方法,但发送失败,请问是什么原因?已经安装了jmail组件