Essensbestellungen Reminder

SDL/frmEssensbestellungenAdministration.vb

@@ -562,10 +562,10 @@ Public Class frmEssensbestellungenAdministration
 
             If isReminder Then
                 Mail.Subject = "Essensgeld für "
-                DETextHTML &= "bitte diese Woche das Essensgeld " & IIf(kw <> "", "für " & kw, "") & " bezahlen.<br>"
+                DETextHTML &= "bitte diese Woche das Essensgeld " & IIf(kw <> "", "für " & kw, "") & " bezahlen.<br><br>"
             Else
                 Mail.Subject = "Essensbestellung: "
-                DETextHTML &= "Anbei ist die Essensbestellung " & IIf(kw <> "", "für " & kw, "") & ".<br>"
+                DETextHTML &= "Anbei ist die Essensbestellung " & IIf(kw <> "", "für " & kw, "") & ".<br><br>"
             End If
 
             Mail.Subject &= IIf(kw <> "", kw, "") & " " & IIf(gebaeude <> "", gebaeude, "")
@@ -1124,6 +1124,10 @@ Public Class frmEssensbestellungenAdministration
 
             Next
 
+            Dim TextHTMLtable = ""
+
+            TextHTMLtable &= "<table border=1>"
+            TextHTMLtable &= "<tr><td>Mitarbeiter</td><td>Betrag</td><td>Firma</td></tr>"
 
             For Each row As DataRow In distinctDT.Rows
 
@@ -1137,6 +1141,14 @@ Public Class frmEssensbestellungenAdministration
 
                     If result IsNot Nothing AndAlso IsNumeric(result) Then
                         result = CDbl(result)
+
+                        TextHTMLtable &= "<tr>"
+                        TextHTMLtable &= "<td><b>" & mit.mit_username & "</b></td>"
+                        TextHTMLtable &= "<td><b>" & result & "</b></td>"
+                        TextHTMLtable &= "<td><b>" & mit.mit_firma & "</b></td>"
+                        TextHTMLtable &= "</tr>"
+
+
                         Select Case mit.mit_abteilung
                             Case "MDM", "EDV" ' -> per Mail weil SDL keine Benachrichtigungen hat und EDV nicht ins AVISO schaut:
                                 If mit.mit_email <> "" AndAlso Not emailEmpf.Contains(mit.mit_email) Then
@@ -1167,7 +1179,7 @@ Public Class frmEssensbestellungenAdministration
 
             If emailEmpf <> "" Then
 
-                generateEmail(emailEmpf, kw, " - " & cboGebaeude._value, "", True)
+                generateEmail(emailEmpf, kw, " - " & cboGebaeude._value, TextHTMLtable, True)
 
             End If
 

SDL/mdm/usrcntlFremdrechnungen.vb

@@ -1,7 +1,5 @@
 Imports System.Reflection
-Imports javax.xml.bind
 Imports Microsoft.Office.Interop
-Imports VERAG_PROG_ALLGEMEIN
 
 Public Class usrcntlFremdrechnungen
     Dim KUNDE As New cKunden