Can I use applescript to send an attachment to an email?

set the_sub to "My automatic Message"
set the_sender to ""
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?