Interested to Buy Any Domain ? << Click Here >> for more details...
How to send QTP test results to an email...(with out using
Quality Center)?
- 11 Answers
- 45942 Views
- I also Faced
- E-Mail Answers
Answers were Sorted based on User's Feedback
Answer / raj
Try this function
Function SendMail(SendTo, Subject, Body, Attachment)
Set ol=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.Send
ol.Quit
Set Mail = Nothing
Set ol = Nothing
End Function
| Is This Answer Correct ? | 24 Yes | 3 No |
Answer / murali krishna
hi,
QTP will prepare the results in xml file format... if we
want to send the result...to mail.. By attaching the
respective file we can send it... if we want to send the
runtime data table... we can also attach it...
quality_muralikrishna@yahoo.com
| Is This Answer Correct ? | 11 Yes | 6 No |
Answer / bharath
Good framework should automatically send the test results to
all the stakeholders, once the test is complete.
Best approach would be using CDO object, it is not required
to install MS Outlook on the PC where test is getting
executed. Attaching the link.
http://bharath-marrivada.blogspot.com/2010/02/how-to-send-email-with-attachments.html
| Is This Answer Correct ? | 5 Yes | 0 No |
Answer / sreelaxmi
Save the test results in HTML format.
Navigation: FIle -> Export to HTML.
U will get the results in HTML format which is very much
understandable. U can mail this as an attachment.
| Is This Answer Correct ? | 2 Yes | 2 No |
Answer / allan
''' use Raj's code above (#5) modifying this line
If (Attachment <> "") Then
Mail.Attachments.Add(Attachment)
End If
'''
set listattach = wildFileList(".*4.*jpg")
for each n in listattach
Mail.Attachments.Add(n)
next 'n
Function wildFileList(regx) ', fext)
'step 1 string list of filenames
Dim fso, tmp, tmp1, folder, File, regEx, Match, Matches, n,
fext
fext = right(regx,3)
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.getfolder(".")
For Each File in folder.Files
If fso.GetExtensionName(File)= fext Then 'regx & fext
tmp = File & vbcrlf & tmp 'regx & fext & vbcrlf & tmp
End If
Next
'step 2 exec regex on raw string
Set regEx = New RegExp ' Create a regular expression.
regEx.Pattern = regx ' Set pattern.
regEx.IgnoreCase = True ' Set case insensitivity.
regEx.Global = True ' Set global applicability.
Set Matches = regEx.Execute(tmp) ' Execute search.
set wildFileList = Matches
End Function
| Is This Answer Correct ? | 0 Yes | 0 No |
Answer / a
¿forgot how to attach?
dim sScreenshotPath
sScreenshotPath = "c:\somepath\" ' with trailing slash
Desktop.CaptureBitmap sScreenshotPath & "Err_" &
Environment( "TestName") & "_" & sTimestamp & ".png"
Function sTimeStamp()
sTimestamp = Right( "0" & Month( Now ), 2 ) & Right( "0" &
Day( Now ), 2 ) & Right( "0" & Hour( Now ), 2 ) & Right( "0"
& Minute( Now ), 2 ) & Right( "0" & Second( Now ), 2 )
End Function
| Is This Answer Correct ? | 0 Yes | 0 No |
Answer / lakshman
In above, mentioned only attachment not how to save result
and sent it as an attachment .
Can you please explain with script clearly
| Is This Answer Correct ? | 0 Yes | 2 No |
Answer / freak
Function SendMailOutlook(strMailto, Subject, Message,
strMailfrom)
'Create an Outlook object
Dim Outlook 'As New Outlook.Application
Set Outlook = CreateObject("Outlook.Application")
'Create e new message
Dim Message 'As Outlook.MailItem
Set Message = Outlook.CreateItem(olMailItem)
With Message
'You can display the message To debug And see state
'.Display
.Subject = Subject
.Body = Message
'Set destination email address
.Recipients.Add (strMailto)
'Set sender address If specified.
Const olOriginator = 0
IfLen(strMailfrom) > 0 Then .Recipients.Add
(strMailfrom).Type = olOriginator
'Send the message
.Send
End With
End Function
| Is This Answer Correct ? | 7 Yes | 10 No |
Answer / issac
ANKITHA why dont u find some other job.and stop pestering
| Is This Answer Correct ? | 5 Yes | 10 No |
Explain sub procedure of vbscript.
After coming to know that QTP could not identify non-standard objects, we set those non-standard objects as virtual objects using Virtual object wizard. But how can we identify that qtp could not identify non-standard objects?
What are the different types of checkpoints?
In Webtable New rows getting added, we have select the name as Sandeep ,If name column is sandeep then need to check the checkbox ,we don't know the rows and columns ,Can anyone please tell me the answer.
3 Answers Broadridge, Cigniti Technologies, HCL,
how can we test load time of an page in webtesting?
How to check and display a particular word from a paragraph?
In the application that I'm testing is having a WYSIWIYG editor.QTP is recording editor's body as web element. I want to add some data to this web Element at run time. The problem is that I cant find a method to add contents to this web Element. Can any one come up with an answer for this. Thankx.
What are the differences between quicktest professional and winrunner?
How to find a window is minimized or not
Where the text version of script file located in file system?
Hi Recently I Attend one interview .The intervier ask on Question in QC 9.2 . The Qus was while ruuning the Batch RUNS scripts in test lab if defect will comes .The defect automaticly wants to genate . How to Configure in QC . Thank You Balaji
How can I replace all the text from the QTP script with some other text. Is there any replace all function in QTP Any one can help me
WinRunner 
