Move processed emails to imap folder Verarbeitet, if they are not deleted

App/EmailProfiler.Form/frmMain.vb

@@ -951,4 +951,10 @@ Public Class frmMain
         End If
 
     End Sub
+
+    Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
+        If FolderBrowserDialog1.ShowDialog() = DialogResult.OK Then
+            PATH_ORIGINALTextBox.Text = FolderBrowserDialog1.SelectedPath
+        End If
+    End Sub
 End Class