ZUGFeRDService: Add config option MaxAttachmentSizeInMegaBytes

Services.ZUGFeRDService/Config.vb

@@ -21,6 +21,12 @@
         ''' regardless of the REJECTED status.
         ''' </summary>
         Public Property IgnoreRejectionStatus As Boolean = False
+
+        ''' <summary>
+        ''' Maximum Size for attachment files in MB. If This is set to -1,
+        ''' there's no size limit.
+        ''' </summary>
+        Public Property MaxAttachmentSizeInMegaBytes As Integer = -1
     End Class
 
     Public Class FirebirdConfig

Services.ZUGFeRDService/ThreadRunner.vb

@@ -51,7 +51,8 @@ Public Class ThreadRunner
 
         Dim oArgs As New WorkerArgs With {
             .ExceptionEmailAddress = _config.Config.ExceptionEmailAddress,
-            .IgnoreRejectionStatus = _config.Config.Custom.IgnoreRejectionStatus
+            .IgnoreRejectionStatus = _config.Config.Custom.IgnoreRejectionStatus,
+            .MaxAttachmentSizeInMegaBytes = _config.Config.Custom.MaxAttachmentSizeInMegaBytes
         }
         oArgs = LoadFolderConfig(oArgs)
         oArgs = LoadPropertyMapFor(oArgs, "DEFAULT")