Hi
Please any one can let me know
How to sent the report generated by the QTP to our mail box
any specific code for that..
I tried with the report functions they are not so helpfull to me
Regards
Vamshi
Hi,
Please try the following vb script and change the ToAddress and other variables accordingly. I think this will help you.
Code:
'=========================================================================
'Email generation VB Script snipet.
'NamitRayudu
'Pre requisite: MS Outlook apllication up running on the desktop
'----------------------------------------------------------------------------------
Dim ToAddress
Dim Subject
Dim Body
Dim Attachment
Dim oUtlookApp, nAmeSpace, newMail
'SystemUtil.Run "C:\Program Files\Microsoft Office\Office11\OUTLOOK.EXE" 'This line should be enabled if the Outlook on the desktop is not running
ToAddress = "abc@test.com" ' Message recipient Address
Set oUtlookApp = CreateObject("Outlook.Application")
Set nAmeSpace = oUtlookApp.GetNamespace("MAPI")
Set newMail = oUtlookApp.CreateItem(0)
Subject = "This is a test mail" 'Message Subject you can update
Body = "This the message for testing. " 'Message body you can update
newMail.Subject = Subject
newMail.Body = Body & vbCrLf
newMail.Recipients.Add(ToAddress)
newMail.Attachments.Add("C:\worklist.txt") 'You can update attachment file name
newMail.Send
Set nAmeSpace = Nothing
Set oUtlookApp = Nothing
'end of the email generation code===================================================================
Thanks,
NamitaRayudu
Thank you very much
vamshi