Outmail: attachements.add.. desktoppath

[Blunder1]

Hi,

I written code so anyone can run the macro which saves to their desk top then attachs the sheet to an email to send out.

I've used this to save:

application.activeworkbook.SaveAs Filename:=desktoppath & "Seg Defecit Report.xlsx

"


However, the below says it cannot find the path, but if i use Workbooks.open to check, it opens it??

With outmail
.to = "XXXXX"
.htmlbody = .htmlbody & "XX"
.attachments.Add desktoppath & "Seg Defecit Report.xlsx"
.send
end with

Thanks in advance

Blunder1