Script to send email with the filename of the file just added to a folder?

Question

Hi,
I have an AppleScript set into an Automator workflow which will send me an email when a file is added to a folder.
What I would like to have happen though is have the email include the file name of the file that is added to the folder
tell application "Mail"
    set theNewMessage to make new outgoing message with properties {subject:"New File added", content:"File", visible:true}
    tell theNewMessage
        make new to recipient at end of to recipients with properties {address:"[email protected]"}
        send
    end tell
end tell
I'm new at the whole AppleScript thing, but I'm getting how powerful it can be.
Thanks for any help.

Answer 1

Maybe something along these lines...
*set theBody to text returned of (display dialog "Enter message text here " default answer "")*
*set theSubject to text returned of (display dialog "Enter subject here " default answer "")*
*set theTarget to text returned of (display dialog "Enter recipient's email address here " default answer "")*
*tell application "Mail"*
*set newMessage to make new outgoing message with properties {subject:theSubject, content:theBody}*
*tell newMessage*
*make new to recipient at end of to recipients with properties {address:theTarget}*
*set sender to "[email protected]"*
*end tell*
*send newMessage*
*end tell*
Regards, Andrew99