AppleScript提取Mac Mail指定文件夹邮件内容至Excel时内容截断问题

我之前也踩过类似的坑，大概率是你提取正文的方式没处理好邮件的格式，或者Excel单元格的显示限制在搞鬼，给你整理了一套实用的解决方案：

先说说可能的问题根源 #

• Mac Mail的邮件正文很多是HTML富文本格式，直接用content属性提取会混进格式标记，甚至只拿到部分内容
• Excel单元格默认有字符上限（旧版是32767字符），太长的正文会被自动截断
• AppleScript读取邮件时，可能没拿到完整的纯文本内容，只取了“可见”的折叠部分

修正后的代码示例 #

我调整了正文提取的逻辑，优先拿纯文本，还适配了Excel的显示规则：

tell application "Mail"
    -- 记得把这里改成你自己的邮箱文件夹和账户名
    set targetMailbox to mailbox "你的目标文件夹" of account "你的邮箱账户"
    set allMessages to every message of targetMailbox
end tell

tell application "Microsoft Excel"
    set newWorkbook to make new workbook
    set activeSheet to active sheet of newWorkbook
    -- 先设置表头
    set value of range "A1" to "邮件主题"
    set value of range "B1" to "发件人"
    set value of range "C1" to "纯文本正文"
    
    set rowNum to 2
    repeat with msg in allMessages
        tell application "Mail"
            set msgSubject to subject of msg
            set msgSender to sender of msg
            -- 优先提取纯文本内容，这是解决截断的关键！
            try
                set msgBody to plain text content of msg
            on error
                -- 要是某些邮件没有纯文本版本，就兜底清理HTML标签
                set msgBody to content of msg
                -- 用shell命令简单去掉HTML标签
                set msgBody to do shell script "echo " & quoted form of msgBody & " | sed 's/<[^>]*>//g'"
            end try
        end tell
        
        -- 写入Excel时做适配，避免看起来像截断
        set value of range ("A" & rowNum) to msgSubject
        set value of range ("B" & rowNum) to msgSender
        set targetRange to range ("C" & rowNum)
        set value of targetRange to msgBody
        -- 开启自动换行，让内容完整显示
        set wrap text of targetRange to true
        -- 调宽C列，避免内容被挤成一团
        set column width of column "C" to 80
        
        set rowNum to rowNum + 1
    end repeat
end tell

几个关键优化点 #

• 用plain text content代替content：这个属性是Mac Mail专门提供的纯文本正文，没有HTML格式，提取的内容更完整也更干净
• 错误处理兜底：有些邮件可能只有HTML版本，那就先拿原始内容再清理标签，保证能拿到有效文本
• Excel单元格配置：开自动换行、调列宽，有时候不是内容真的截断了，只是单元格没显示全而已
• 字符上限应对：如果真的遇到超长篇邮件（超过32767字符），可以考虑把正文拆分到多个单元格，或者添加成单元格批注，不过这种情况很少见

额外排查小技巧 #

• 挑一封截断的邮件单独测试，看看plain text content返回的内容是不是完整的，判断是Mail的问题还是Excel的问题
• 检查截断的邮件是不是带了附件或内嵌图片，这类邮件的结构更复杂，可能需要额外处理

内容的提问来源于stack exchange，提问作者John O'Sullivan