QTP批量执行并发邮件

Option Explicit

'*****************************************************************

'脚本说明：公共变量声明，路径根据实际环境修改

'*****************************************************************

Dim ReportLocation '报告存放路径

ReportLocation = "D:\project\QTP\qtpscript\"

Dim QtpLocation 'Qtp安装路径

QtpLocation = "D:\softwaretesting\Mercury Interactive\QuickTest Professional\bin\QTPro.exe"

'*****************************************************************

'脚本说明：启动QTP

'*****************************************************************

Dim WshShell,oExec

set WshShell = WScript.CreateObject("WScript.Shell")

Set Exec = WshShell.Exec (QtpLocation)

Set WshShell = Nothing

WScript.Sleep 60000 '等待1分钟

'*****************************************************************

'脚本说明：判断文件是否存在，存在删除

'*****************************************************************

Dim oFSO

' 创建一个文件系统对象

set FSO = CreateObject ("Scripting.FileSystemObject")

CheckFileExists(ReportLocation)

Function CheckFileExists (FilePath)

FilePath = FilePath &"测试结果1.html"

' 检查文件是否存在，如果存在删除

CheckFileExists = oFSO.FileExists(FilePath)

'MsgBox CheckFileExists

If (CheckFileExists = true) Then

oFSO.DeleteFile (FilePath)

End if

End Function

'*****************************************************************

'脚本说明：批量执行脚本并生成摘要报告

'*****************************************************************

Dim oMTM

' 创建 Multi Test Manager 对象

Set MTM = CreateObject("MultiTestManager.Application")

oMTM.Visible = True

' 修改运行时的默认设置

Dim oRunSettings

Set RunSettings = oMTM.Preferences.RunSettings

oRunSettings.Iterations = 1

oRunSettings.CloseQuickTest = True

'打开注释启用定时调度

'oRunSettings.ScheduleRun = True

'oRunSettings.Day = 3

'oRunSettings.Month = 12

'oRunSettings.Year = 2009

'oRunSettings.Second = 00

'oRunSettings.Minute = 55

'oRunSettings.Hour = 15

' 修改报告的默认设置

Dim oReportSettings

Set ReportSettings = oMTM.Preferences.ReportSettings

oReportSettings.CreateReport = True

oReportSettings.OverwriteReport = False

oReportSettings.DefaultLocation = False

oReportSettings.ReportLocation = ReportLocation '报告存放路径

oReportSettings.ReportName = "测试结果"

oReportSettings.ViewReport = True

'批量执行脚本：脚本的目录，是否执行，执行结果存放位置

oMTM.AddTestScript. "D:\project\QTP\qtpscript\rarTest", True,ReportLocation

'oMTM.AddTestScript. "D:\project\QTP\qtpscript\rarTest", True,ReportLocation 根据脚本进行添加

' 运行脚本

oMTM.Run

while ( oMTM.IsRunning )

Wend

oMTM.Quit

Set RunSettings = Nothing

Set ReportSettings = Nothing

Set MTM = Nothing

'*****************************************************************

'脚本说明：将运行结果发送邮件

'*****************************************************************

Dim SendTo, Subject, Body, Attachment

'SendTo ="test@163.com;test1@163.com" '发送多个邮箱以分号分割

SendTo ="test@163.com"

Subject ="自动化测试结果"

Body ="自动化测试结果"

Attachment =ReportLocation&"测试结果1.html"

'SendMail SendTo, Subject, Body, Attachment

Function SendMail(SendTo, Subject, Body, Attachment)

Dim ol,Mail

Set l=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.display '邮件显示

Mail.Send

ol.Quit

Set Mail = Nothing

Set l = Nothing

End Function

posted on 2014-04-10 10:45 顺其自然EVO 阅读(368) 评论(0) 编辑收藏所属分类: qtp

新用户注册刷新评论列表


只有注册用户登录后才能发表评论。




网站导航: 博客园 IT新闻 Chat2DB C++博客博问管理
相关文章: QTP中Report知识点总结 QTP中的时间同步点问题解决 QTP书写程序技巧 VBS脚本启动QTP并运行测试 Lr11、QTP11破解时需要注意的问题在QTP中申明XPath QTP在webtable中查找指定字符 QTP脚本—测试参数限制 QTP校验数据库中数据后台项目 QTP处理各类鼠标事件fireEvent

qileilove

QTP批量执行并发邮件

导航

统计

常用链接

留言簿(55)

随笔分类

随笔档案

文章分类

文章档案

搜索

最新评论

阅读排行榜

评论排行榜