Запретить отправку электронной почты через Applescript

Question

У меня есть следующий AppleScript (ниже). Я пытаюсь подтвердить отправку электронного письма. Этот AppleScript уже успешно подключен к «правилу исходящих сообщений» (с помощью Mail Act-On) в Mail.app, и я убедился, что он работает, когда он должен (во время отправки).

Конечная цель - вывести диалоговое окно для пользователя, спрашивая, действительно ли они хотят отправить электронное письмо. Если нет, остановите отправку электронного письма.

Текущий скрипт пытается удалить сообщение, но это не работает. Есть идеи?

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
...