on composeMail(email_recipient, email_subject, email_content, the_file)
	
	tell application "Mailplane 3"
		set m to make new outgoing message
		tell m
			set r to make new to recipient at end
			tell r
				set address to email_recipient
			end tell
			set subject to email_subject
			
			
			
			set content to email_content
			
            if the_file isn't ""
                make new mail attachment with properties {path:the_file}
            end if
			
		end tell
		compose m
    
        activate
	end tell
	
end composeMail

