51Testing软件测试论坛

标题: qtp调用外部vbs，报错，有人知道是怎么回事吗 [打印本页]

作者: 多米尼克 时间: 2010-11-26 15:07
标题: qtp调用外部vbs，报错，有人知道是怎么回事吗
在 files-setting-resources里加了vbs的脚本，但是qtp运行的时候，每次到最后一行就报错：类型不匹配，知道是什么原因吗？

然后qtp代码：

SendTo="test@test.com"

Subject="test"

Body="test"

Attachment="d:\test.xls"

Call SendMail (SendTo,Subject,Body,Attachment)

--------------------vb脚本---------------------------------

Function SendMail(SendTo, Subject, Body, Attachment)

   Set ol=CreateObject("Outlook.Application")

   Set Mail=ol.CreateItem(0)

   Mail.to=SendTo

   Mail.Subject=Subject

   Mail.Body=Body

   If (Attachment <> "") Then

            Mail.Attachments.Add(Attachment)

   End If

   Mail.Send

   ol.Quit

   Set Mail = Nothing

   Set ol = Nothing

End Function

作者: 多米尼克 时间: 2010-11-26 16:09
没人回答吗，随便说点提供点思路也好啊

作者: sunnyswu 时间: 2010-11-27 19:12
是不是关于outlook 认证的问题，
outlook需要登录

调用方法是否有问题？

作者: TIB 时间: 2010-11-27 21:37
也可以用CDO对象来发送Email，参考：
Function SendMail(buildversion , buildlog ,FxCop_Result,MetricsReport,Simian_ResultFile, deBugbuildResult)
  Set oMessage=WScript.CreateObject("CDO.Message")
  Set oConf=WScript.CreateObject("CDO.Configuration")
  '创建CDO.Configuration对象后，需要设置邮件服务器的端口、用户帐号等相关信息
  oConf.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
  oConf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver")=EmailServer
  oConf.Fields("http://schemas.microsoft.com/cdo/configuration/serverport")=25
  oConf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")=1
  oConf.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername")=Eamil_sendusername
  oConf.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword")=Email_sendpassword
  oConf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl")=0
  oConf.Fields.Update()

'通过CDO的 Message对象设置邮件主题、附件、发送人等信息
oMessage.Configuration = oConf
oMessage.To = Email_ReceiveAddress
oMessage.From = Email_SendAddress
oMessage.Subject = buildversion & "构建结果"
oMessage.AddAttachment( buildlog )
if (FxCop_Result<>"") Then
   oMessage.AddAttachment( FxCop_Result )
End If
if (MetricsReport<>"") Then
   oMessage.AddAttachment( MetricsReport )
End If
if (Simian_ResultFile<>"") Then
   oMessage.AddAttachment( Simian_ResultFile )
End If

   If deBugbuildResult = true Then
     TextBody = buildversion & "编译成功！"
Else
     TextBody = buildversion & "编译失败！"
End If

oMessage.TextBody = TextBody
oMessage.Send()
End Function

作者: lyscser 时间: 2010-11-28 13:24
楼上达人，学习了：）

Function SendMail(mailFrom,mailSmtp,sendUserName,sendUserPassword,mailTo,mailSubject,mailBody,mailAttachment)

      Const conSendUsing       ="http://schemas.microsoft.com/cdo/configuration/sendusing"
      Const conServer          ="http://schemas.microsoft.com/cdo/configuration/smtpserver"
      Const conServerPort       ="http://schemas.microsoft.com/cdo/configuration/smtpserverport"
      Const conConnectionTimeout ="http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout"
      Const conAuthenticate    ="http://schemas.microsoft.com/cdo/configuration/smtpauthenticate"
      Const conUsessl          ="http://schemas.microsoft.com/cdo/configuration/smtpusessl"
      Const conSendUserName    ="http://schemas.microsoft.com/cdo/configuration/sendusername"
      Const conSendPassword    ="http://schemas.microsoft.com/cdo/configuration/sendpassword"

      Set objMessage = CreateObject("CDO.Message")
      Set objConfig = CreateObject("CDO.Configuration")
      Set Fields = objConfig.Fields
      Set objMessage.Configuration = objConfig

      With Fields
            .Item(conSendUsing) = 2                         '2为使用外部SMTP服务器,不要更改
            .Item(conServer) = mailSmtp                      '改成可用的外部邮件服务器域名
            .Item(conServerPort) = 25                               '外部SMTP服务器端口,gmail使用465,其它一般使用25
            .Item(conConnectionTimeout) = 20                '设定连接超时，单位秒
            .Item(conUsessl) = False                         '是否使用SSL安全套接字，gmail为true，其它一般false
            .Item(conAuthenticate) = 1                      '1为发送邮件需要认证,通常不要更改
            .Item(conSendUserName) = sendUserName
            .Item(conSendPassword) = sendUserPassword
            .Update
      End With

      With objMessage
            .To = Trim(mailTo)                                                                               '改成接收者的邮件地址
            .From = mailFrom                                                                                        '改成发送人的邮件地址,要和上面的邮件系统相同
            .Subject = Trim(mailSubject)                                        '标题
            .HTMLBody =  "<html><head><meta http-equiv=""Content-Type"" content=""text/html; charset=Shift_JIS"" /></head>"&_
                                          "<body>"&mailBody&"</body></html>" 'HTML邮件正文
            .HTMLBodyPart.Charset="Shift_JIS" '//邮件HTML格式编码
            If       Trim(mailAttachment) <> "" Then
                     .AddAttachment  mailAttachment                      '邮件附件
            End If
            .Send
      End With

      Set objMessage = Nothing
      Set objConfig = Nothing
End Function

作者: 多米尼克 时间: 2010-11-29 11:30
修复安装后问题解决，估计是qtp内部问题，谢谢ls几位的回答

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