Evernote: AppleScript to email all of the notes in a set notebook

gistfile1.applescript

tell application "Evernote"
  
  activate
	
	set matches to find notes "notebook:NameOfNotebook -tag:ExportedOneNote"
	
	repeat with n in matches
		
		set nw to open note window with n
		
		tell application "System Events"
			
			tell process "Evernote"
				
				click menu item "Email Note..." of menu "Share" of menu item "Share" of menu "Note" of menu bar item "Note" of menu bar 1 of application process "Evernote" of application "System Events"
				
				keystroke "name@email.com"
				
				keystroke tab using shift down
				keystroke tab using shift down
				keystroke tab using shift down
				
				keystroke space
				
			end tell
			
		end tell
		
		if (not (tag named "ExportedOneNote" exists)) then
			make tag with properties {name:"ExportedOneNote"}
		end if
		assign tag "ExportedOneNote" to n
		
		close nw
		
	end repeat
	
end tell

I created this to bulk import my notes into OneNote

There is a limit of 25 emails a day for the free accounts