set the_sub to "My automatic Message"
set the_sender to "me@ip.net"
set the_message to "Hear is your bloody attachment!"
tell application "Mail"
set k to make new outgoing message with properties {subject:the_sub, content:the_message}
tell k to make new to recipient at end of to recipients with properties {address:the_sender}
send k
end tell
Can I add an addition to this script that will attach all files of a specific folder?