AppleScript:从列表在邮件应用程序中创建 SmartInbox

AppleScript: Create SmartInbox in Mail app from list

只是想知道你是否可以提供帮助

我已经着手使用 applescript 在邮件应用程序中创建智能邮箱 智能收件箱的电子邮件列表位于桌面上的 myFile.txt 中。每行一封邮件

我想要包含多封电子邮件的智能收件箱,并希望将其自动化

我试过以下脚本

tell application "Mail"
    activate
end tell

# GUI Script to initiate Smart Inbox creation

tell application "System Events"
    tell process "Mail"
        tell menu bar 1
            tell menu bar item "Mailbox"
                tell menu "Mailbox"
                    click menu item "New Smart Mailbox…"
                end tell
            end tell
        end tell
        
        delay 1
        # Set name for the Smart Mailbox
        tell application "System Events" to keystroke ("MyAutomaticSmartMailBox" as text)

        keystroke tab

        # Set path to myFile.txt
        set srcFile to ((path to desktop) as text) & "myFile.txt"
        
        # Read lines from file.
        set lns to paragraphs of (read file srcFile as «class utf8»)
        
        # Loop over lines read and copy each to the clipboard.
        repeat with ln in lns
            set the clipboard to ln
            # Paste the clipboard into Smart inBox dialog
            tell application "System Events" to keystroke (the clipboard as text)
            # to create next line to add email
            click button "NSButtonCell"
        end repeat
        
        
    end tell
end tell

给我一个错误

error "System Events got an error: Can’t make file \"MackintoshHD:Users:one:Desktop:myFile.txt\" of process \"Mail\" into type file." number -1700 from file "MackintoshHD:Users:one:Desktop:myFile.txt" of process "Mail" to file

任何解决此错误的帮助都将不胜感激 还要将脚本中的下拉列表从“任何收件人”更改为“发件人” 干杯

`set theFile to ((path to desktop as text) & "test.txt")

将theData设置为(读取文件theFile)的段落` 这应该读取文件,将其设置为列表 然后在列表中重复 aData 设定规则 告诉规则“a”在......

末尾创建条件为新规则

这很管用:)