notesExport.applescript

on writeToFile(filename, filecontents)
	set the output to open for access file filename with write permission
	set eof of the output to 0
	write filecontents to the output starting at eof
	close access the output
end writeToFile

on replace_chars(this_text, search_string, replacement_string)
	set AppleScript's text item delimiters to the search_string
	set the item_list to every text item of this_text
	set AppleScript's text item delimiters to the replacement_string
	set this_text to the item_list as string
	set AppleScript's text item delimiters to ""
	return this_text
end replace_chars

tell application "Notes"
	activate
	display dialog "This is the export utility for Notes.app.\n\n" & "Exactly " & (count of notes) & " notes are stored in the application. " & "Each one of them will be exported as a simple HTML file stored in a folder of your choice." with title "Notes Export" buttons {"Cancel", "Proceed"} cancel button "Cancel" default button "Proceed"
	set exportFolder to choose folder
	repeat with each in every note
		set noteName to name of each
		set noteBody to body of each
		set noteName to my replace_chars(noteName, ":", "-")
		set filename to ((exportFolder as string) & noteName & ".html")
		my writeToFile(filename, noteBody as text)
	end repeat
	display alert "Notes Export" message "All notes were exported successfully." as informational
end tell