通过Applescript将Apple Mail附件添加到Apple Notes

tell application "Mail"
    -- 获取附件
    set theAttachments to {}
    set theMailbox to mailbox "Inbox"
    set theMessages to (every message in theMailbox)
    repeat with theMessage in theMessages
        -- 根据邮件属性筛选
        if subject of theMessage is "目标邮件主题" and sender of theMessage is "目标发件人" then
            set theAttachments to (every attachment of theMessage)
            exit repeat
        end if
    end repeat
end tell

tell application "Notes"
    -- 获取目标笔记本或笔记
    set theFolder to folder "目标笔记本"
    set theNote to note "目标笔记" in theFolder
    
    repeat with theAttachment in theAttachments
        -- 添加附件到笔记
        try
            set theAttachmentPath to POSIX path of (get theAttachment)
            set theAttachmentName to name of theAttachment
            make new attachment at theNote with properties {file path:theAttachmentPath, name:theAttachmentName}
        end try
    end repeat
end tell