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