How to send QTP test results to an email...(with out using
Quality Center)?
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 |
can any one tell me How exactly data drivent testing is done in.explain with any example and the exact steps to fallow?
what is regular expression how will you implement it?
how to get the object count ?????????
i have an array CAPGEMINI .....Here i need to check whether G is there or not ..how to do that and friends i have one big doubt that is whether it is array or string ,how we come to know that and where we consider that it's array ,where we consider that it's an string because when i want to find the length i have big doubt whether we need to use len function or ubound ... ans me for this TWO Questions any one please
Hi let me ask one questin 1.How to use outputof the one function input to the another function pls give the script for above 2.what is the purpose of action parameter , how to create it
How will you set a unique four digit number in an edit field in QTP?
how to get no.of non empty rows in a excel sheet through vb-script
how to display message with out using msgbox function?
what is Unicode Compatibility ? HOw does this makes a diffrence from Winrunner.?
I have an application running in Linux server. I am reaching the application through emulators like telnet. My operating system at the client side is Windows XP. Using emulator I am connecting the Linux server and working on the application. Can I automate the testing of the software running in Linux server using QTP. In short, does QTP support the applications running in Linux servers.
WHO TAKE DECISION TO RELEASE THE BUILD
What is data driver in qtp?