使用AppleScript通过邮件规则创建包含电子邮件详细信息的文本文件

on perform_mail_action(theData)
    tell application "Mail"
        set theSelectedMessages to |SelectedMessages| of theData
        repeat with theMessage in theSelectedMessages
            set theSubject to subject of theMessage
            set theSender to sender of theMessage
            set theContent to content of theMessage
            set theDate to date received of theMessage
            
            set theFileName to (theSubject & ".txt")
            set theFilePath to (path to desktop as text) & theFileName
            
            set theFile to open for access theFilePath with write permission
            write ("Subject: " & theSubject & return & return) to theFile
            write ("Sender: " & theSender & return & return) to theFile
            write ("Content: " & theContent & return & return) to theFile
            write ("Date: " & theDate & return & return) to theFile
            close access theFile
        end repeat
    end tell
end perform_mail_action