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