Jobs/ZUGFeRD: Actually add missing properties to email body

Modules.Jobs/EDMI/ZUGFeRD/ImportZUGFeRDFiles.vb

@@ -269,6 +269,7 @@ Public Class ImportZUGFeRDFiles
                                 Dim oCheckResult = _zugferd.PropertyValues.CheckPropertyValues(oDocument, oArgs.PropertyMap, oMessageId)
 
                                 If oCheckResult.MissingProperties.Count > 0 Then
+                                    oMissingProperties = oCheckResult.MissingProperties
                                     Throw New MissingValueException(oFile)
                                 End If
                                 Dim oDelSQL = $"DELETE FROM TBEDMI_ITEM_VALUE where REFERENCE_GUID = '{oMessageId}'"