Mac端Outlook邮件自动导出失败求助：AppleScript脚本排查

文本文件未生成的核心原因排查 #

1. 邮件分类判断逻辑完全错误 #

脚本中通过subject of anEmail contains redCategoryName筛选邮件，这是判断主题包含"Red"字符串，而非标记为Red分类的邮件。Outlook for Mac的AppleScript中，邮件的分类存储在categories属性（列表类型），正确判断逻辑应为：

tell application "Microsoft Outlook"
    set redCategoryName to "Red"
    -- 直接筛选分类包含Red的邮件，无需遍历所有邮件
    set redEmails to every message of inbox where redCategoryName is in categories
end tell

2. 文件路径格式不兼容导致写入失败 #

desktopFolderPath是HFS格式路径（如Macintosh HD:Users:xxx:Desktop:），但POSIX file需要POSIX格式路径（如/Users/xxx/Desktop/），直接拼接会生成无效路径。需转换路径格式，并清理文件名中的非法字符：

-- 转换为POSIX格式桌面路径
set desktopPOSIXPath to POSIX path of (path to desktop)
tell application "Microsoft Outlook"
    repeat with redEmail in redEmails
        set emailSubject to subject of redEmail
        -- 移除主题中的文件名非法字符（/:*?"<>|）
        set cleanedSubject to do shell script "echo " & quoted form of emailSubject & " | sed 's/[\\/:*?\"<>|]/_/g'"
        set receivedTime to receivedTime of redEmail
        set formattedTime to my formatReceivedTime(receivedTime)
        -- 拼接合法的POSIX路径
        set filePath to desktopPOSIXPath & formattedTime & "_" & cleanedSubject & ".txt"
        
        -- 安全写入文件，处理权限与异常
        set mailBody to content of redEmail
        try
            set fileRef to open for access file filePath with write permission
            set eof of fileRef to 0 -- 清空已有内容
            write mailBody to fileRef as «class utf8» -- 指定UTF-8编码避免乱码
            close access fileRef
        on error errMsg
            -- 确保文件句柄被关闭
            try
                close access file filePath
            end try
            display alert "写入失败: " & errMsg
        end try
    end repeat
end tell

3. 时间格式化函数的鲁棒性不足 #

receivedTime的字符串格式受系统区域设置影响，直接按固定分隔符拆分可能导致索引越界。可改用AppleScript的日期格式化命令：

on formatReceivedTime(receivedTime)
    return do shell script "date -j -f '%Y-%m-%d %H:%M:%S' '" & (receivedTime as string) & "' +'%Y-%m-%d_%H%M%S'"
end formatReceivedTime

Excel部分的修正点 #

1. 保存路径缺失文件名 #

原脚本中excelFilePath仅指定桌面路径，未设置具体文件名，导致Excel无法正确保存。需补充文件名：

tell application "Microsoft Excel"
    set excelFilePath to desktopPOSIXPath & "Red_Emails_Summary.xlsx"
    set newWorkbook to make new workbook
    -- ...（原有写入逻辑）
    save workbook as newWorkbook filename excelFilePath file format Excel XML file format
    close newWorkbook saving no
end tell

2. 跳过中间文本文件，直接从Outlook提取数据 #

无需导出文本文件，可直接从redEmails中读取sender、receivedTime等信息，避免文件IO的额外开销：

tell application "Microsoft Outlook"
    set redEmails to every message of inbox where "Red" is in categories
end tell

tell application "Microsoft Excel"
    set newWorkbook to make new workbook
    set activeSheet to active sheet of newWorkbook
    set rowIndex to 2
    -- 写入表头（原有代码不变）
    repeat with redEmail in redEmails
        -- 直接从邮件对象提取信息
        set senderName to name of sender of redEmail
        set dateReceived to receivedTime of redEmail
        -- ...（其他信息提取逻辑）
        -- 写入Excel（原有代码不变）
        set rowIndex to rowIndex + 1
    end repeat
    save workbook as newWorkbook filename excelFilePath file format Excel XML file format
end tell

内容的提问来源于stack exchange，提问作者ph13