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”在......
末尾创建条件为新规则
这很管用:)
只是想知道你是否可以提供帮助
我已经着手使用 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”在......
末尾创建条件为新规则这很管用:)