Adding attachment to Outlook Email

[mv8167]

i have code that creats and send an email after my testing completes. But I cannot seem to get the attachment to attach in Outlook v2007 pro.

My code is such:

Code:

'Returns O:\QTP Tests\NightlyRegressionTesting\Tests\Image Access - Check Fax Status by ENV\Res## msgbox strAttachment strAttachment = strAttachment & "\Report\Results.xml" 'Returns O:\QTP Tests\NightlyRegressionTesting\Tests\Image Access - Check Fax Status by ENV\Res##\Report\Results.xml msgbox strAttachment 'all three FAIL newMail.AddAttachments(strAttachment) newMail.Attachments.Add(strAttachment) newMail.Attachments(strAttachment)

[ssvali]

Try this :-

Code:

newMail.Attachments.Add (strAttachment)

[mv8167]

Thx Ssvali

I tried newMail.Attachments.Add (strAttachment) earlier but I get a Run Error "The Operation failed...."

I also tried just newMail.Attachments (strAttachment) which does not fail but no attachment is ever added.

I did look over that the strAttachment is correctly found my file by testing If strAttachment <> "" Then, which passes. but, no file gets attached as thought.

thx for your time.

[ssvali]

For me the below script is working fine.

Code:

Set olapp = CreateObject("Outlook.Application") Set olns = olapp.GetNameSpace("MAPI") Set msg = olapp.CreateItem(mailitem) Set rep = msg.Recipients.Add ("abc@qtp.com") msg.subject = "Test Mail" msg.body = "Mail from QTP" fattach = "Z:\Results\Result.xml" msg.Attachments.Add (fattach) msg.send

[mv8167]

Mine still fails at: msg.Attachments.Add (fattach)

I tried:

Code:

Set olapp = CreateObject("Outlook.Application") Set olns = olapp.GetNameSpace("MAPI") Set msg = olapp.CreateItem(mailitem) Set rep = msg.Recipients.Add ("abc@qtp.com") msg.subject = "Test Mail" msg.body = "Mail from QTP" fattach = "C:\Document and Settings\Desktop\Result.xml" msg.Attachments.Add (fattach) msg.send

I do ret a Run Error: Cannot find this file. (but it is there)

Thx for the idea