Add attachment subfolder for success and error directories

Jobs/EDMI/ZUGFeRD/WorkerArgs.vb

@@ -6,6 +6,7 @@ Public Class WorkerArgs
     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
 
@@ -15,6 +16,7 @@ Public Class WorkerArgs
         ErrorDirectory = Nothing
         OriginalEmailDirectory = Nothing
         RejectedEmailDirectory = Nothing
+        AttachmentsSubDirectory = Nothing
         PropertyMap = New Dictionary(Of String, XmlItemProperty)
         InsertIntoSQLServer = False
     End Sub