Source : QTP Google groups
Set Mail=ol.CreateItem(0)
Mail.to=SendTo
Mail.Subject=Subject
Mail.Body=Body
If (Attachment <> "") Then
Mail.Attachments.Add(
End If
Mail.Send
ol.Quit
Set Mail = Nothing
Set ol = Nothing
------------------------------
Set qtApp = CreateObject("QuickTest.
qtApp.Launch
qtApp.Visible = True
qtApp.Open "scriptname", False
'qtApp.Open "C:\test", False
Set qtResultsOpt = CreateObject("QuickTest.
qtResultsOpt.ResultsLocation = "C:\results"
Set qtTest = qtApp.Test
qtTest.Run qtResultsOpt
qtTest.Close
qtApp.Quit
Set qtApp = nothing
Set qtResultsOpt = nothing
Set qtTest = nothing