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.

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  

in a web page How to check and display a particular word from a paragraph?

0 Answers  

How to open a new test using quicktest professional?

0 Answers  

dears, I have one question for QTP.If my software is english and defined objects is english name. But, if my software has support MUI, under this case that my objects in the QTP can't work, because the QTP can't catch the objects name. In this case, is anybody know how to solve this problem? Thanks a lot.

2 Answers   CyberLink,

what are inputs for automation?

3 Answers  

How to handle "Java Runtime error" popup window in the web application ? Sometimes the application throws the error repeatedly... Is there any browser setting available to disable the error ?

2 Answers   TCS,

i am unable to select an item from combobox using Descriptive programming. can any one give me code for scheduling the ticket using Descriptive programming.

1 Answers  

Is there any site to download QTP....otherwise tell me the way how to get the QTP sofware??????????????????? Thnx in advance

5 Answers   Cegonsoft,

what is functions in qtp?i know the userdefind &bulit funation or i know that Private public function ?plz tell me what is funations in qtp?how to create a funation in qtp

4 Answers   NIIT,

what is the process to follow between writing the test cases & then atomating it?

1 Answers  

how to get font size of a "WebEdit"

3 Answers   L&T,

Hi..All I have installed QTP 10.0, and need to Automate SAP Application.....so i need to Install SAP Add-ins, anybady has SAP-Addins, Please help me, and thanks in advanced plese send it on my email id: sandipgami84@gmail.com Thanks, Sandip Gami +91-9714177088

1 Answers