Add attachment subfolder for success and error directories

DDZUGFeRDService/ThreadRunner.vb

@@ -20,6 +20,7 @@ Public Class ThreadRunner
     Private _successDirectory As String
     Private _errorDirectory As String
     Private _originalEmailDirectory As String
+    Private _attachmentDirectory As String
     Private _zugferd As ZUGFeRDInterface
     Private _jobArguments As WorkerArgs
     Private _mssql As MSSQLServer
@@ -148,6 +149,9 @@ Public Class ThreadRunner
                 Case ZUGFERD_REJECTED_EML
                     args.RejectedEmailDirectory = row.Item("FOLDER_PATH")
 
+                Case ZUGFERD_ATTACHMENTS
+                    args.AttachmentsSubDirectory = row.Item("FOLDER_PATH")
+
             End Select
         Next