Mail attachment: difference between script and app bundle?

Question

Hiya Folks,
I am trying to make an application in Applescript that will receive a file, then create a new email (in Mail.app) with that file attached. I would prefer it to be an app, rather than a script when it's finished. I have a script that appears to work.
This simple script will put up a Choose File window asking for a file, then bring Mail to the front and create a new message, with the selected file attached (it won't send it). For debugging, I made a dialog box pop up showing the path to the file selected:
-- begin script
set OpenedFile to choose file
display dialog "OpenedFile: " & OpenedFile
tell application "Mail"
activate
set newMessage to make new outgoing message with properties {subject:"Subject", content:"Content"}
tell newMessage
set visible to true
tell content
make new attachment with properties {file name:OpenedFile} at after the last paragraph
end tell
end tell
end tell
-- end script
So I tried to make that into an app onto which I could drag n drop a file, and have Mail make a new message with that file attached. Try saving this following script as an Application or an Application Bundle:
-- begin script
on open OpenedFile
display dialog "OpenedFile: " & OpenedFile
tell application "Mail"
activate
set newMessage to make new outgoing message with properties {subject:"Subject", content:"Content"}
tell newMessage
set visible to true
tell content
make new attachment with properties {file name:OpenedFile} at after the last paragraph
end tell
end tell
end tell
end open
-- end script
Run the first script as a script, and it works as advertised. Drag a file onto the second script saved as an app, and the message is created, but no attachment.
Note that the path displayed in the pop-up is the same for both scripts.
Anybody know what I'm doing wrong?
Thanks for your help,
Drewstre

Answer 1

on open (dragged_items)
my handleFiles(draggeditems) -- Send selected items to custom handler.
end open
on handleFiles(localItems)
tell application "Mail" -- Use terms of 'Mail'
activate -- Launch 'Mail'.
-- Add text to 'Subject' and 'Message' fields.
set newMessage to make new outgoing message with properties {subject:"Subject", content:"Content"}
tell newMessage -- Set focus to 'newMessage'
set visible to true -- Make message visible.
repeat with i in local_Items -- Cycle through the dragged items, adding each to new message.
tell content to make new attachment with properties {file name:i} at after the last paragraph
end repeat
end tell
end tell
end handle_Files
  Mac OS X (10.4.4)