auto Essensbestellungen

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