Convert Mac Mail Notes to Evernote (Applescript)

mailnotes2evernote.scpt

tell application "Mail"
    set theMessages to every message of the mailbox "NoteMigrate"

    repeat with thisMessage in theMessages
        set myTitle to the subject of thisMessage
        set myText to the content of thisMessage
    set myCreateDate to the date sent of thisMessage

        tell application "Evernote"
            create note with text myText¬
            title myTitle ¬
            notebook "Imported Notes" ¬
            tags "imported_note" ¬
        created myCreateDate
        end tell
    end repeat

end tell