jasonian

tell application "OmniFocus"
    tell content of first document window of front document
		set tasksSelected to value of (selected trees where (class of its value is not item) and (class of its value is not folder))
		if length of tasksSelected is 0 then
			display alert "Select some tasks in OmniFocus."
			return
		end if
	end tell
	

jasonian

tell application "VoodooPad"
    tell document 1
    	repeat with thisPage from 1 to number of items in pages
			set theName to display name of page thisPage
			set creationDate to created of page thisPage
			set theText to text of page thisPage
			tell application "Evernote"
				create note with text theText title theName notebook "VoodooPad Imported Notes" tags "imported_from_VoodooPad" created creationDate
			end tell
		end repeat

jasonian

tell application "Notes"
    set theMessages to every note
	repeat with thisMessage in theMessages
		set theNoteName to name of thisMessage
		set theNoteBody to the body of thisMessage
		set theNoteCreationDate to the creation date of thisMessage
		set theNoteModificationDate to the modification date of thisMessage
		
		tell application "Evernote"
			create note with html theNoteBody title theNoteName notebook "Imported Notes" tags "imported_note" created theNoteCreationDate