edv/ADMIN
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

auto Essensbestellungen

Browse Source
This commit is contained in:
d.breimaier
2026-06-18 14:47:55 +02:00
parent 70fc0caebf
commit 38f06d7eaf
1 changed files with 8 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
initATLASAufschubkonten/frmStartOptions.vb
View File

@@ -941,8 +941,8 @@ Public Class frmStartOptions
Case "SENDE_ESSENSBESTELLUNGEN" Case "SENDE_ESSENSBESTELLUNGEN"
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
Dim test As Boolean = True Dim test As Boolean = False
sendEssensbestellungenInfoMail(test) sendEssensbestellungenInfoMail(test, False)
closeMe() closeMe()
@@ -8510,10 +8510,10 @@ repeatRequest:
End Sub End Sub
Private Sub Button33_Click(sender As Object, e As EventArgs) Handles Button33.Click Private Sub Button33_Click(sender As Object, e As EventArgs) Handles Button33.Click
sendEssensbestellungenInfoMail(True) sendEssensbestellungenInfoMail(True, True)
End Sub End Sub
Public Function sendEssensbestellungenInfoMail(test As Boolean) Public Function sendEssensbestellungenInfoMail(test As Boolean, showInfo As Boolean)
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
@@ -8522,6 +8522,10 @@ repeatRequest:
Dim EmailText = generateEssensbestellungen(Betreff, test) Dim EmailText = generateEssensbestellungen(Betreff, test)
If Empfaenger <> "" AndAlso EmailText <> "" Then 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) 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 If
End Function End Function