ZUGFeRDService: Add IgnoreRejectionStatus Parameter

Modules.Jobs/EDMI/ZUGFeRD/WorkerArgs.vb

@@ -7,11 +7,13 @@ Public Class WorkerArgs
     Public ErrorDirectory As String
     Public OriginalEmailDirectory As String
     Public RejectedEmailDirectory As String
-    Public ExceptionEmailAddress As String
     Public AttachmentsSubDirectory As String
     Public PropertyMap As Dictionary(Of String, XmlItemProperty)
     Public InsertIntoSQLServer As Boolean
 
+    Public ExceptionEmailAddress As String
+    Public IgnoreRejectionStatus As Boolean
+
     Public Sub New()
         WatchDirectories = New List(Of String)
         SuccessDirectory = Nothing
@@ -19,8 +21,10 @@ Public Class WorkerArgs
         OriginalEmailDirectory = Nothing
         RejectedEmailDirectory = Nothing
         AttachmentsSubDirectory = Nothing
-        ExceptionEmailAddress = Nothing
         PropertyMap = New Dictionary(Of String, XmlItemProperty)
         InsertIntoSQLServer = False
+
+        ExceptionEmailAddress = Nothing
+        IgnoreRejectionStatus = False
     End Sub
 End Class