从导入笔记邮件.app进入Evernote（Applescript）

Posted 2021-02-25

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