这是我的烦恼:我想将电子邮件添加到 Reminders.app 作为待办事项。我想通了那部分。我的下一个目标是能够选择多封电子邮件并让 Reminders.app 为所选的每封电子邮件创建待办事项。我想通了那部分。
问题:当我选择作为对话一部分的电子邮件时,来自该对话的所有消息都被添加为单独的提醒/待办事项。这部分可能会令人困惑,但我会尽可能详细地描述我如何选择消息。在 Mail.app 中,我在最右侧的窗格中选择了一条消息,其中作为对话部分的所有电子邮件都显示在可滚动列表中。这是我选择特定消息的区域。因此,即使我从对话中选择了一条消息,该对话中的所有消息都会添加到我的 AppleScript 列表变量中,并且随后会变成提醒/待办事项。
如果我在 Mail.app 中关闭“按对话组织”,问题就会消失。我喜欢通过对话组织我的电子邮件的整洁,所以如果有一个脚本解决这个问题,我更喜欢这条路线。但是,我想不出任何方法来解决这个问题,所以我希望这里有人有一些想法。
这是我的脚本:
property defaultList : "Parking Lot"
on newReminder(theBody, theTitle)
tell application "Reminders"
tell list defaultList
make new reminder with properties {body:theBody, name:theTitle}
end tell
end tell
end newReminder
tell application "Mail"
set selectedMessages to {}
set selectedMessages to selection
if (count of selectedMessages) is 0 then
return "Please select a message in Mail.app and try again."
else
repeat with i from 1 to (count of selectedMessages)
tell item i of selectedMessages
set messageid to message id
set urlText to "message://" & "%3c" & messageid & "%3e"
set theSender to extract name from sender
set theSubject to subject
my newReminder((theSender & " " & urlText), theSubject)
end tell
end repeat
end if
end tell