on composeMail(email_recipient, email_subject, email_content, the_file)
	
	try
		tell application "Microsoft Entourage"
			activate
			set the new_message to make new draft window with properties {subject:email_subject, to recipients:email_recipient}
			
			tell new_message
				set the_file_path to (POSIX file the_file) as string
				set the content to email_content
				make new attachment at new_message with properties {file:(the_file_path)}
			end tell
		end tell
	end try
	
end composeMail
