To send Fail Results to mail

[Naresh]

Hi all,

Can any one know how to send only Fail Results to mail

[babu123]

if the test step is failed call one more function in failed case and create a fail testcase report same like passed/failed and store it in a specific location. one location for combination of pass and failed and one location for failed only....

Code:

public function mail()
Set MyApp = CreateObject("Outlook.Application")
Set MyItem = MyApp.CreateItem(0) 'MailItem
With MyItem
.To = "test@test.com"
.Subject = "test"
.ReadReceiptRequested = False
.HTMLBody = "A Fail created!"
'.display
'SendKeys "%{s}", True
'Type alt+micEnter

.Attachments.Add("attach fail location file. ")
.Send

End With
End function