Adding attachment to Outlook Email

[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