Add Setting for Non-ZUGFeRD Files which are not rejected and instead moved to a special folder

Modules.Jobs/EDMI/ZUGFeRD/WorkerArgs.vb

@@ -2,31 +2,21 @@
 Imports DigitalData.Modules.Interfaces
 
 Public Class WorkerArgs
-    Public WatchDirectories As List(Of String)
-    Public SuccessDirectory As String
-    Public ErrorDirectory As String
-    Public OriginalEmailDirectory As String
-    Public RejectedEmailDirectory As String
-    Public AttachmentsSubDirectory As String
-    Public PropertyMap As Dictionary(Of String, XmlItemProperty)
-    Public InsertIntoSQLServer As Boolean
+    ' Directory Parameters
+    Public WatchDirectories As New List(Of String)
+    Public SuccessDirectory As String = Nothing
+    Public ErrorDirectory As String = Nothing
+    Public OriginalEmailDirectory As String = Nothing
+    Public RejectedEmailDirectory As String = Nothing
+    Public AttachmentsSubDirectory As String = Nothing
+    Public NonZugferdDirectory As String = Nothing
 
-    Public ExceptionEmailAddress As String
-    Public IgnoreRejectionStatus As Boolean
-    Public MaxAttachmentSizeInMegaBytes As Integer
+    ' Property Parameter
+    Public PropertyMap As New Dictionary(Of String, XmlItemProperty)
 
-    Public Sub New()
-        WatchDirectories = New List(Of String)
-        SuccessDirectory = Nothing
-        ErrorDirectory = Nothing
-        OriginalEmailDirectory = Nothing
-        RejectedEmailDirectory = Nothing
-        AttachmentsSubDirectory = Nothing
-        PropertyMap = New Dictionary(Of String, XmlItemProperty)
-        InsertIntoSQLServer = False
-
-        ExceptionEmailAddress = Nothing
-        IgnoreRejectionStatus = False
-        MaxAttachmentSizeInMegaBytes = -1
-    End Sub
+    ' Misc Flag Parameters
+    Public InsertIntoSQLServer As Boolean = False
+    Public ExceptionEmailAddress As String = Nothing
+    Public IgnoreRejectionStatus As Boolean = False
+    Public MaxAttachmentSizeInMegaBytes As Integer = -1
 End Class