diff --git a/Modules.Jobs/EDMI/ZUGFeRD/EmailFunctions.vb b/Modules.Jobs/EDMI/ZUGFeRD/EmailFunctions.vb
index 8e9a062c..fcdc485f 100644
--- a/Modules.Jobs/EDMI/ZUGFeRD/EmailFunctions.vb
+++ b/Modules.Jobs/EDMI/ZUGFeRD/EmailFunctions.vb
@@ -77,7 +77,10 @@ Public Class EmailFunctions
             Dim oCreatedWho = "ZUGFeRD Service"
 
             Dim oMaskedBodyText = BodyText.Replace("'", "''")
-            Dim oFinalBodyText = String.Format(EmailStrings.EMAIL_WRAPPING_TEXT, oMaskedBodyText)
+            Dim oSubjectBodyText = String.Format(EmailStrings.EMAIL_SUBJECT_TEXT, pEmailData.Subject).Replace("'", "''")
+            Dim oCompleteBodyText = oMaskedBodyText & oSubjectBodyText
+
+            Dim oFinalBodyText = String.Format(EmailStrings.EMAIL_WRAPPING_TEXT, oCompleteBodyText)
 
             Dim oEmailAddress = pEmailData.From
             Dim oAttachment = pEmailData.Attachment
diff --git a/Modules.Jobs/EDMI/ZUGFeRD/EmailStrings.vb b/Modules.Jobs/EDMI/ZUGFeRD/EmailStrings.vb
index f845c751..50a52022 100644
--- a/Modules.Jobs/EDMI/ZUGFeRD/EmailStrings.vb
+++ b/Modules.Jobs/EDMI/ZUGFeRD/EmailStrings.vb
@@ -4,6 +4,7 @@
         das WISAG-Portal zur Verarbeitung der Eingangsrechnungen im ZUGFeRD-Format konnte die von Ihnen gesandte Rechnung 
         leider nicht verarbeiten! <br><br> Grund: {0}<p>Bitte prüfen Sie die Datei und nehmen Sie bei Bedarf mit uns Kontakt auf.<p>    
         Vielen Dank für Ihr Verständnis.<br>Mit freundlichen Grüßen<br>Ihre IT-Abteilung</body></html>"
+    Public Const EMAIL_SUBJECT_TEXT = "<p>Der Betreff der Original-Email war: <em>{0}</em></p>"
 
     Public Const EMAIL_SUBJECT_REJECTED = "WISAG ZUGFeRD Portal: Beleg abgelehnt"
     Public Const EMAIL_SUBJECT_EXCEPTION = "WISAG ZUGFeRD Portal: Unbehandelte Ausnahme"
@@ -28,7 +29,6 @@
         <p>Die folgende Datei hat die erlaubte Größe überschritten:<ul>
             <li>{1}</li>
         </ul></p>
-        <p>Der Betreff der Original-Email war: <em>{2}</em></p>
     "
 
     Public Const EMAIL_INVALID_DOCUMENT = "
diff --git a/Modules.Jobs/EDMI/ZUGFeRD/ImportZUGFeRDFiles.vb b/Modules.Jobs/EDMI/ZUGFeRD/ImportZUGFeRDFiles.vb
index 779283fa..6f76b15e 100644
--- a/Modules.Jobs/EDMI/ZUGFeRD/ImportZUGFeRDFiles.vb
+++ b/Modules.Jobs/EDMI/ZUGFeRD/ImportZUGFeRDFiles.vb
@@ -408,9 +408,12 @@ Public Class ImportZUGFeRDFiles
                             Create_HistoryEntry(oMessageId, oMD5CheckSum, "REJECTED - File size limit reached", oFBTransaction)
 
                             Dim oEmailData = MoveAndRenameEmailToRejected(oArgs, oMessageId)
+
                             Dim oKey = FileSizeLimitReachedException.KEY_FILENAME
-                            Dim oFileExceedingThreshold = IIf(ex.Data.Contains(oKey), ex.Data.Item(oKey), "")
-                            Dim oBody = String.Format(EmailStrings.EMAIL_FILE_SIZE_REACHED, oArgs.MaxAttachmentSizeInMegaBytes, oFileExceedingThreshold, oEmailData.Subject)
+                            Dim oFileExceedingThreshold As String = IIf(ex.Data.Contains(oKey), ex.Data.Item(oKey), "")
+                            Dim oFileWithoutMessageId = oFileExceedingThreshold.Replace(oMessageId, "")
+
+                            Dim oBody = String.Format(EmailStrings.EMAIL_FILE_SIZE_REACHED, oArgs.MaxAttachmentSizeInMegaBytes, oFileExceedingThreshold)
 
                             _email.AddToEmailQueueMSSQL(oMessageId, oBody, oEmailData, "FileSizeLimitReachedException", _EmailOutAccountId)
                             AddRejectedState(oMessageId, "FileSizeLimitReachedException", "Erlaubte Dateigröße überschritten", "", oSQLTransaction)