需要Applescript关闭所有打开的邮件

我妈妈已经150岁了，当她在mac电脑上使用邮件时，她会点击一条信息，让它在自己的窗口中打开，然后她不会关闭它，而是将它最小化到dock。最终，她会收到40封打开的邮件，她的mac电脑会慢下来

是否有人有一个applescript可以关闭所有打开的邮件，并设置为每天自动运行一次

---

对不起，我对applescript一无所知

爱它，真的能让年长的亲戚们感同身受，用科技做最意想不到的事情

尝试一下这个脚本。它在10.7上对我有效，但在更高版本的操作系统上可能不起作用

if application "Mail" is not running then
    return
end if

tell application "Mail"
    set message_viewer_title to the name of message viewer 1  -- we don't want to close the main window
    close (every window whose name is not message_viewer_title)
end tell

注意：如果打开了一封从未保存过的新邮件（草稿），Mail将询问该怎么办

---

我将让您查看一下调度解决方案。

利用对象模型避免循环，您也可以这样做：

tell应用程序“Mail”将message\u viewer\u title设置为message viewer的名称1 close（每个窗口的名称不是message\u viewer\u title）end tell