Sending QTP report to mail

[namitarayudu]

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