let title := "Sammel E-Mail an alle versenden?";
let message := "Möchtest du wirklich alle Verkäufer anschreiben?
Der Vorgang dauert einige Sekunden.";
let answerOptions := ["Ja, ich möchte alle anschreiben", "Nein"];
if dialog(title, message, answerOptions) = "Ja, ich möchte alle anschreiben" then

        for i in select 'Aufbewahrung XXX-Verträge' do
            i.if 'Fzg. zugelassen?' = 1 and 'an Bank versendet?' = 2 and 'Eingang Bankunterlagen' = 2 and
                (days('Letzte Sammel E-Mail:', today()) > 4 or 'Letzte Sammel E-Mail:' = null) then
                sendEmail({
                    from: "XXX",
                    to: 'Verkäufername'.'E-Mail',
                    replyTo: "XXX",
                    bcc: "XXX",
                    subject: "Bankunterlagen fehlen" + " / " + 'Eingabe VIN' + " / " + Kundenname,
                    text: "XXX",
                    html: "XXX"
});
                'Letzte Sammel E-Mail:' := now()
            end;
            void
        end
    end