51Testing软件测试论坛

标题: 请教QTP如何自动发邮件???发邮件时为什么会出错 [打印本页]

作者: wugecat 时间: 2009-5-7 11:50
标题: 请教QTP如何自动发邮件???发邮件时为什么会出错
我用QuickTest Professional Code Samples Plus 中的发送邮件那个方法,但是执行到
Set ol=CreateObject("Outlook.Application") 时就出错了提示"ActiveX 部件不能创建对象: 'Outlook.Application',请教是何原因???谢了

作者: dreamever 时间: 2009-5-7 11:55
以前碰到过这个问题，当时的原因就是因为我的测试机上没装office软件，没有outlook

作者: wugecat 时间: 2009-5-7 11:57
我的装了outlook Express6 是不是这个??为什么还会出错?

作者: wawa133 时间: 2009-5-7 14:42
没试过用outlook，呵呵。。。。不过我用过lotus来发邮件。

作者: ziheng198688 时间: 2009-6-8 17:04
Function SendMail(Message,Body,ToList,CcList,Attachment)
NameSpace = "http://schemas.microsoft.com/cdo/configuration/"
Set Email = CreateObject("CDO.Message")
Email.From = "test@163.com.cn"
Email.To = ToList
Email.Cc = CcList
Email.Subject = Message
Email.Textbody = Body
Email.AddAttachment Attachment
Email.DSNOptions = 1
Email.Configuration.Fields.Item(NameSpace&"sendusing") = 2
Email.Configuration.Fields.Item(NameSpace&"smtpserver") = Environment("Mail_Server")
Email.Configuration.Fields.Item(NameSpace&"smtpserverport") = 25
Email.Configuration.Fields.Item(NameSpace&"smtpauthenticate") = 1
Email.Configuration.Fields.Item(NameSpace&"sendusername") = Environment("Mail_account")
Email.Configuration.Fields.Item(NameSpace&"sendpassword") = Environment("Mail_pwd")
Email.Configuration.Fields.Update()
Email.Send
End Function

作者: fei.ge 时间: 2009-6-8 19:59
我机器上装了outlook exrpess，也装了office outlook(未配置)

想用QTP脚本自动发送邮件，提示我配置office outlook……

配置好了，发送正常……

[ 本帖最后由 fei.ge 于 2009-6-8 20:03 编辑 ]

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