From 38f06d7eaf0a3b9680295415fe48213ec27687ee Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Thu, 18 Jun 2026 14:47:55 +0200 Subject: [PATCH] auto Essensbestellungen --- initATLASAufschubkonten/frmStartOptions.vb | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) diff --git a/initATLASAufschubkonten/frmStartOptions.vb b/initATLASAufschubkonten/frmStartOptions.vb index 99d316c..5fa3914 100644 --- a/initATLASAufschubkonten/frmStartOptions.vb +++ b/initATLASAufschubkonten/frmStartOptions.vb @@ -941,8 +941,8 @@ Public Class frmStartOptions Case "SENDE_ESSENSBESTELLUNGEN" VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False - Dim test As Boolean = True - sendEssensbestellungenInfoMail(test) + Dim test As Boolean = False + sendEssensbestellungenInfoMail(test, False) closeMe() @@ -8510,10 +8510,10 @@ repeatRequest: End Sub Private Sub Button33_Click(sender As Object, e As EventArgs) Handles Button33.Click - sendEssensbestellungenInfoMail(True) + sendEssensbestellungenInfoMail(True, True) End Sub - Public Function sendEssensbestellungenInfoMail(test As Boolean) + Public Function sendEssensbestellungenInfoMail(test As Boolean, showInfo As Boolean) VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False @@ -8522,6 +8522,10 @@ repeatRequest: Dim EmailText = generateEssensbestellungen(Betreff, test) If Empfaenger <> "" AndAlso EmailText <> "" Then VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(IIf(Not test, "info@highway-118.de; service@highway-118.de", "d.breimaier@verag.ag"), IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TEST-", "") & Betreff, EmailText, getAbsenderEmail(),, False, Empfaenger) + Else + If EmailText = "" AndAlso showInfo Then + MsgBox("keine zu schickenden Daten!") + End If End If End Function