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.

how to click the link in webpage by using QTP Script????????

3 Answers  

How to find array size in qtp?

0 Answers  

What is difference between QC and TD?

8 Answers  

How to get Links count in an web application,without descriptive programming?

8 Answers  

How to record application running on the Virtual machine?

0 Answers  

GET WHETHER THE GIVE NUMBER VALID OR NOT IN BETWEEN THE GIVEN RANGE?IN VB SCRIPT(QTP)

2 Answers   CSC,

what is defenetion of kiran can u tell me plz CVS, SVN

0 Answers  

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

3 Answers   Polaris,

HOW CAN WE GET THE VALUE OF TEXT BOX IN QTP? can you give me sample script for this where there is some condition. like if "text" THEN msgbox() else endif

7 Answers   Xavient,

Hi, Has anybody attended IBM interview on 17th APR 2010,and got offer letter? I had given interview and selected also but still did not recieve offer letter.

5 Answers   IBM,

what is the diffrence bw qtp architectute and qtp framework?

0 Answers  

anybody give me the real time example for descriptive programming of web application

7 Answers