Applescript for mail.app won't send attachment

Question

I have an applescript to send a mail attachment but the mail sends without the attachment? Anyone know why?
set theContent to (current date) as string
set theSubject to "excel file"
set theTarget to "someone @someplace.com"
set theSender to "admin"
set theName to "some name"
set theAttachment to "mcp0_HD:Users:bill:Site:logs:deviceLogs.xls"
tell application "Mail"
set newMessage to make new outgoing message with properties {subject:theSubject, content:theContent & return & return}
tell newMessage
make new to recipient at end of to recipients with properties {visible:true, name:theName, address:theTarget}
set sender to theSender
tell content
make new attachment with properties {file name:theAttachment} at after the last paragraph
send newMessage
end tell
end tell
end tell

Answer 1

If you are still having problems, then there is something wrong with your file that you are trying to attach, or your declaration of this variable:
set theAttachment to "mcp0_HD:Users:bill:Site:logs:deviceLogs.xls"
Examine that very carefully. It is also a good idea to use the *path to* nomenclature (see the Dictionary for *+Standard Additions+* for more details) to access a file in cases like these. For example, here is the pertinent portion of a script that I have used since the Panther days to do precisely what you are trying to do:
set pay_Path to ((path to documents folder as text) & "Cathouse:Payroll:Paysheets:Today.xls")
tell application "Mail"
set b to make new outgoing message with properties {sender:"[email protected]", subject:("Payroll")}
set content of b to "Hello:
Here is the payroll ending today: " & return & return
tell b's content
make new attachment with properties {file name:pay_Path as alias} at after the last paragraph
end tell
tell b to make new to recipient with properties {address:"[email protected]"}
send b
end tell
I use this every other week to report my payroll to my accountant. It has never failed, and I am using Leopard (10.5.7).
Good luck,