Hi All,
I am using following code to send email during execution from QC with
attachment. I am getting mail but without attachment. Please let me know
what is the issue with this code.


Set Crun = QCUtil.CurrentRun

Set  attch  =  Crun.Attachments
Set filename1 =  attch.Additem(Null)
Filename1.Filename= "C:\Testing.txt"
'Filename1.Type = 1
Filename1.Post
Filename1.refresh
Dim qcfilename(0)
Set alist = attch.NewList("")
qcfilename(0) =  alist.item(0).ServerFileName

QCUtil.QCConnection.SendMail "[email protected]
",,"testing","Result",qcfilename


-- 
---
Thanks and Regards
Neerja Nawani

-- 
-- 
You received this message because you are subscribed to the Google
"QTP - HP Quick Test Professional - Automated Software Testing"
group.
To post to this group, send email to [email protected]
To unsubscribe from this group, send email to
[email protected]
For more options, visit this group at
http://groups.google.com/group/MercuryQTP?hl=en

--- 
You received this message because you are subscribed to the Google Groups "QTP 
- HP Quick Test Professional - Automated Software Testing" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to [email protected].
For more options, visit https://groups.google.com/groups/opt_out.


Reply via email to