dim emObj, xlFileLoc
xlFileLoc = server.mappath("someworksheet.xls")
set emObj = server.createobject("cdonts.newmail")
emObj.From = "you@yourdomain.com"
emObj.To = "towhom@thatdomain.com"
emObj.Subject = "Your Excel file"
emObj.Body = "Here is the excel file that you created!"
emObj.AttachFile xlFileLoc, "someworksheet.xls"
emObj.Send
set emObj = nothing