wugecat 发表于 2009-5-7 11:50:09

请教QTP如何自动发邮件???发邮件时为什么会出错

我用QuickTest Professional Code Samples Plus 中的发送邮件那个方法,但是执行到
Set ol=CreateObject("Outlook.Application") 时就出错了 提示"ActiveX 部件不能创建对象: 'Outlook.Application',请教是何原因???谢了

dreamever 发表于 2009-5-7 11:55:14

以前碰到过这个问题，当时的原因就是因为我的测试机上没装office软件，没有outlook

wugecat 发表于 2009-5-7 11:57:49

我的装了outlook Express6 是不是这个??为什么还会出错?:Q

wawa133 发表于 2009-5-7 14:42:34

没试过用outlook，呵呵。。。。不过我用过lotus来发邮件。:lol

ziheng198688 发表于 2009-6-8 17:04:59

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

我机器上装了outlook exrpess，也装了office outlook(未配置)

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

配置好了，发送正常……

[ 本帖最后由 fei.ge 于 2009-6-8 20:03 编辑 ]
页: [1]
查看完整版本: 请教QTP如何自动发邮件???发邮件时为什么会出错