Take a screen shot of the test results..and save it..and 
send it to u r mail id..i think u are surprised with my 
answer...ok...

Ankit, great answer.

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

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

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

In above, mentioned only attachment not how to save result
and  sent it as an attachment .

Can you please explain with script clearly

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.

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