on run
tell application "Finder"
activate
set the_selection to get selection
repeat with an_item in the_selection
set the_name to name of an_item
set the_extension to name extension of an_item
tell application "Mail"
activate
set MyEmail to make new outgoing message
set MessageFont to message font
set MessageFontSize to message font size
set theSubject to "Pic from Dad"
set theContent to "I hope you like this pic" & return & return
tell MyEmail
make new
recipient at
end of to recipients with properties
{address:"email@hidden"} set visible to true
set content to theContent
set subject to theSubject
set theAttachment to (an_item as alias)
tell content to make new attachment with properties {file name:theAttachment} at after last paragraph
end tell
end tell
end repeat
end tell
end run