How to execute batch of QTP Tests.
How to capture QTP Execution status.
How to send the execution status as a Outlook Mail.
Following is the AOM script for the above functionality:
Set qtpApp = CreateObject("QuickTest.Application")
Set fsObj = CreateObject("Scripting.FileSystemObject")
Set qtpResObj = CreateObject("QuickTest.RunResultsOptions")
sFolderPath="E:\Batch Tests"
qtpApp.Launch
qtpApp.Visible = True
Set mainFolderObj = fsObj.GetFolder(sFolderPath)
Set testSubFolders = mainFolderObj.SubFolders
sPath="E:\"&formatDate&"\"
For each folderObj in testSubFolders
chkfolderObj = folderObj.Path & "\Action0"
If (fsObj.FolderExists(chkfolderObj)) Then ' The folder is a QTP test folder
qtpApp.Open folderObj.Path, True, False
sResultFolderPath=sPath&folderObj.Name & "\Res" ' Set the results location
qtpResObj.ResultsLocation = sResultFolderPath
qtpApp.Test.Run qtpResObj, True
strResult=qtpApp.Test.LastRunResults.Status
'WScript.echo strResult
qtpApp.Test.Close
End If
Next
'SendMail()
qtpApp.Quit
' Release the File System Objects
Set testSubFolders = Nothing
Set mainFolderObj = Nothing
Set fsObj = Nothing
set qtpResObj=nothing
set qtpApp=nothing
Function formatDate()
str=now()
str=replace(str,"/","")
str=replace(str,":","")
str=replace(str," ","")
formatDate= mid(str,1,len(str)-2)
End Function
function SendMail()
Set Outlook = CreateObject("Outlook.Application")
Set Message = Outlook.CreateItem(olMailItem)
With Message
.Subject = "Test results for Date "&sPath
.HTMLBody = "This is an automated mail for Test Results"
.Recipients.Add ("udayanem@gmail.com")
.attachments.add sFilePath
.Send
End With
set Outlook=nothing
end function
