Question

我有以下AppleScript（下面）。我正在尝试确认发送电子邮件。 AppleScript已成功连接到Mail.app中的“发件箱规则”（使用Mail Act-On），并且我已经验证它是否应该在发送时（在发送时）运行。

最终目标是向用户弹出一个对话框，询问他们是否“真的”想要发送电子邮件。如果没有，请停止发送电子邮件。

当前脚本尝试删除邮件，但这不起作用。有什么想法吗？

using terms from application "Mail"
    on perform mail action with messages messageList for rule theRule

        repeat with thisMessage in messageList

            set theResult to display dialog "Send?" buttons {"OK", "Cancel"} default button 2
            if button returned of theResult is not equal to "OK" then
                delete thisMessage
            end if

        end repeat
    end perform mail action with messages
end using terms from

Answer 1

我认为display dialog中的“取消”按钮会立即结束脚本的执行，这意味着永远不会运行delete thisMessage行。

您可以尝试将其更改为：

set theResult to display dialog "Send?" buttons {"OK", "No, Delete Message"} default button 2
if button returned of theResult is not equal to "OK" then
...

防止通过Applescript发送电子邮件

1 个答案: