sending email through qtp

[vijay44]

Hi,
I have tried the below piece of code, i was able to send email through qtp, but i didn't wanted to invoke outlook each time, i run, so i added piece of code intially which checks whether the outlook is open.

Code:

Set mailob = GetObject(", outlook.application") If Not Obj Is Nothing Then Msgbox "Outlook is already open" Else systemUtil.Run "OUTLOOK.EXE" End If Set Obj = Nothing 'systemUtil.Run "OUTLOOK.EXE" ' Comment this line, if outlook is already open Set Wshshell = CreateObject("Wscript.Shell") set mailob = createobject("outlook.application") wait(5) set mailitm = mailob.createitem(0) wait(5) mailitm.display 'this being an optional step wait(5) mailitm.to = "dtulasi@abc.com" mailitm.cc = "dtulasi@xyz.com;dtulas@zyx.com" wait(5) mailitm.subject = "QTP Result" wait(5) mailitm.attachments.add ("C:\Documents and Settings\Administrator\Desktop\Test3\Res1\Report.xml") 'path of file mailitm.send

I am facing 2 propblems over here

At line 1 iam getting general error

and also i am manually specifying the attachment path, that too isn't working, is there any way that i can change this hard coded path

Any help would be really appreciated.

Regards;
Vijay

[Saket]

use 'CreateObject' instead of 'GetObject', also to check whether it is open or not, you will have to check in the processes (you can use WMI scripting).

[vijay44]

Hi,
Thanks for a quick response.
I also have other problem, some thing to do with the path of the file to be attached.


mailitm.attachments.add ("C:\\Documents and Settings\\Administrator\\Desktop\\Test3\\Res1\\Report.xml") .

As the path of the result file varies with the testname, i dont want to hardcord it.

Is there any way that i cannot hard code it.

Any reply would be really appreciated.
Regards;
Vijay

[sreekanth chilam]

Hi,

You can use Built-In Environment variables in the below way.

Code:

mailitm.attachments.add (Environment("ResultDir")&"Report.xml")

[vijay44]

Hi,
Thanks a lot for the quick response.

Regards;
Vijay