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

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

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

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.

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

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

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

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

Answer / issac

ANKITHA why dont u find some other job.and stop pestering

Answer / chinnu

Ankit, great answer.

What are the recording modes and executing modes avialble in QTP?

3 Answers   Polaris,

Why do you choose only QTP for your project automation among remaining tools like Rational robot and silk test?

2 Answers   CTS,

Can we record an application running on a remote machine using qtp?

0 Answers  

I need to know how to Automate a Username and Password for a Web-based product? I'm scripting 3 different types of surveys but each Survey requires a Username and Password which is always the same. I can I do this using QTP?

3 Answers  

Why divide a test into three action calls?

1 Answers  

I want to know can we integrate visual source safe tool with QTP and QC for our version controlling process? WE know QTP and QC 10.0 version is having the version control inbuilt in it but I want to know the merits and demerits of the inbuilt version control tool and the visual source safe tool using QTP and QC.

0 Answers   Wipro,

How many ways is to parameterize the value?

0 Answers  

what are the areas that cannot be tested using an automated tool? list a few

7 Answers  

How to see the screens after running test in QTP?

1 Answers  

suppose in the middle of the project QTP will not work properly, then what do u do? and ur team?

0 Answers  

any body can you help me what is the script to automate an comand promt

0 Answers  

I wanted to create Data Driven test for login page (loginname,password). Password is same for all the loginnames. I recorded the script for one user. I mentioned all the user names in the global excel sheet with the column name as "Loginname". I mentioned 5 loginnames. I selected tools- >datadriver and select loginname. Select parameterize and select parameter all option.Changed the parameter name to "loginname" which i mentioned in the global excel sheet. I executed the script. For the users 2 and 4 only, the script is failing... can anybody explain why the script is failing for users 2 and 4.

2 Answers