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