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

wugecat

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

fei.ge

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

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

配置好了，发送正常……

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

ziheng198688

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

wawa133

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

wugecat

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

dreamever

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