diff --git a/SDL/Formulare/KDFormulare/frmFormulare.vb b/SDL/Formulare/KDFormulare/frmFormulare.vb
index fbc09806..32ee0afc 100644
--- a/SDL/Formulare/KDFormulare/frmFormulare.vb
+++ b/SDL/Formulare/KDFormulare/frmFormulare.vb
@@ -6586,6 +6586,8 @@ Public Class FormularManagerNEU
             If embeddedFiles IsNot Nothing Then
                 Dim filespecs As PdfArray = embeddedFiles.GetAsArray(PdfName.NAMES)
 
+                If filespecs Is Nothing Then Return False
+
                 For i As Integer = 0 To filespecs.Size - 1 Step 2
                     ' Get the attachment's file specification
                     Dim fileArray As PdfDictionary = filespecs.GetAsDict(i + 1)
diff --git a/SDL/frmEssensbestellungenAdministration.vb b/SDL/frmEssensbestellungenAdministration.vb
index a0d81e61..8e7bda3d 100644
--- a/SDL/frmEssensbestellungenAdministration.vb
+++ b/SDL/frmEssensbestellungenAdministration.vb
@@ -562,7 +562,7 @@ Public Class frmEssensbestellungenAdministration
 
             If isReminder Then
                 Mail.Subject = "Essensgeld für "
-                DETextHTML &= "Bitte zahlt diese Woche das Essensgeld " & IIf(kw <> "", "für " & kw, "") & ".<br>"
+                DETextHTML &= "bitte diese Woche das Essensgeld " & IIf(kw <> "", "für " & kw, "") & " bezahlen.<br>"
             Else
                 Mail.Subject = "Essensbestellung: "
                 DETextHTML &= "Anbei ist die Essensbestellung " & IIf(kw <> "", "für " & kw, "") & ".<br>"
@@ -1111,7 +1111,7 @@ Public Class frmEssensbestellungenAdministration
 
             For Each kwRow In distinctDTKW.Rows
                 If kwRow("eb_kw").ToString.Length > 10 Then
-                    kw &= kwRow("eb_kw").ToString.Substring(0, kwRow("eb_kw").ToString.Length - 6)
+                    kw &= kwRow("eb_kw").ToString.Substring(0, kwRow("eb_kw").ToString.Length - 6) & ", "
                 Else
                     kw &= kwRow("eb_kw").ToString
                 End If
@@ -1122,7 +1122,7 @@ Public Class frmEssensbestellungenAdministration
             For Each row As DataRow In distinctDT.Rows
 
 
-                If row("eb_mitid") = 678 Then 'chef, chefin row("eb_mitid") <> 144 AndAlso row("eb_mitid") <> 267 
+                If row("eb_mitid") <> 144 AndAlso row("eb_mitid") <> 267 Then 'chef, chefin 
 
                     Dim mit As New cMitarbeiter(row("eb_mitid"))
 
@@ -1130,7 +1130,7 @@ Public Class frmEssensbestellungenAdministration
                     Dim result = dt_nichtBezahlteEB.Compute("SUM(eb_preis)", "")
 
                     If result IsNot Nothing AndAlso IsNumeric(result) Then
-
+                        result = CDbl(result)
                         Select Case mit.mit_abteilung
                             Case "MDM" ' -> per Mail weil SDL keine Benachrichtigungen:
                                 If mit.mit_email <> "" Then
@@ -1139,7 +1139,7 @@ Public Class frmEssensbestellungenAdministration
 
                             Case Else
 
-                                VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(Nothing, Nothing, 21, "", mit.mit_id, "Bitte Essensgeld bezahlen: " & result & "€ ('" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "')", 1, , "Essensgeld")
+                                VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(-1, -1, 21, "B", mit.mit_id, "Bitte Essensgeld bezahlen: " & result & "€ ('" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "')", 1, , "Essensgeld")
 
 
                         End Select
@@ -1155,7 +1155,7 @@ Public Class frmEssensbestellungenAdministration
 
             If emailEmpf <> "" Then
 
-                generateEmail(emailEmpf, kw, cboGebaeude._value, "")
+                generateEmail(emailEmpf, kw, " - " & cboGebaeude._value, "", True)
 
             End If