on composeMail(email_recipient, email_subject, email_content, the_file)
	
	tell application "AirMail"
        activate
        set theMessage to make new outgoing message with properties {subject:email_subject, content:email_content}
        tell theMessage
            
            
            set the_file_path to (POSIX file the_file) as string

            make new to recipient at end of to recipients with properties {name:"", address:email_recipient}
            --make new mail attachment at end of mail attachments with properties {filename:the_file}
            set aAttachment to make new mail attachment with properties {filename:the_file}

            compose
        end tell
	end tell
	
end composeMail

