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

App/EmailProfiler.Common/clsWorker.vb

@@ -5,6 +5,7 @@ Imports DigitalData.Modules.Base
 Imports DigitalData.Modules.Messaging.Mail
 Imports Limilabs.Mail
 Imports Limilabs.Mail.Headers
+Imports System.Reflection.Emit
 
 Public Class clsWorker
     Private ReadOnly Logger As Logger
@@ -19,6 +20,8 @@ Public Class clsWorker
     Private ReadOnly EmailLimitationSender As String = ""
     Private ReadOnly EmailLimitationEnabled As Boolean = False
 
+    Private Const SUCCESS_IMAP_FOLDER = "Verarbeitet"
+
     Private ReadOnly LocalEmlFile As String = ""
 
     Sub New(pLogConfig As LogConfig, pConnectionString As String, pWindreamConnectionString As String, pPollProfileId As Integer, pUseWindream As Boolean, pEmailAccountID As Integer, pEmailPrefix As String, pEmailLimitationSender As String, Optional pLocalEML As String = "")
@@ -215,7 +218,7 @@ Public Class clsWorker
                                             End If
                                             If ClassWorkMail.WorkEmailMessage(oEmail, oMailId, oValidationSql) = True Then
                                                 If LocalEmlFile = "" Then
-                                                    DeleteEmailFile(oMailId)
+                                                    DeleteOrMoveEmailFile(oMailId)
                                                 End If
                                             End If
 
@@ -308,22 +311,45 @@ Public Class clsWorker
 
         End Try
     End Function
-    Private Sub DeleteEmailFile(pMailId As Integer)
+    Private Sub DeleteOrMoveEmailFile(pMailId As Integer)
         Try
-            If DeleteMail = True And MESSAGE_ERROR = False Then
+            If MESSAGE_ERROR = True Then
-                If IsNothing(Fetcher.Client) Then
+                Logger.Warn("Did not delete or move Message with UID [{0}] as there was an MessageError!", pMailId)
-                    Logger.Warn("EMAIL_DELETE - CURRENT_ImapObject is nothing")
+                Return
-                End If
+            End If
 
+            If IsNothing(Fetcher.Client) Then
+                Logger.Warn("Did not delete or move Message with UID [{0}] as ImapClient is null", pMailId)
+                Return
+            End If
+
+            If DeleteMail = True Then
                 Fetcher.Client.DeleteMessageByUID(pMailId)
                 Logger.Info("Email with Id [{0}] was deleted.", pMailId)
             Else
-                If MESSAGE_ERROR = True Then
+                If TestImapFolderExists(SUCCESS_IMAP_FOLDER) Then
-                    Logger.Warn("Did not delete Message with UID [{0}] as there was an MessageError!", pMailId)
+                    If Fetcher.Client.MoveByUID(pMailId, SUCCESS_IMAP_FOLDER) IsNot Nothing Then
+                        Logger.Info("Email with UID [{0}] was moved", pMailId)
+                    End If
+                Else
+                    Logger.Warn("IMAP Folder [{0}] does not exist. Emails could not be moved!", SUCCESS_IMAP_FOLDER)
                 End If
             End If
         Catch ex As Exception
             Logger.Error(ex)
         End Try
     End Sub
+
+    Private Function TestImapFolderExists(pFolderName As String) As Boolean
+        Try
+            Return Fetcher.Client.
+                GetFolders().
+                Where(Function(f) f.Name = pFolderName).
+                Any()
+        Catch ex As Exception
+            Logger.Warn("Could not get IMAP folders. Returning False.")
+            Logger.Error(ex)
+            Return False
+        End Try
+    End Function
 End Class

App/EmailProfiler.Form/frmMain.Designer.vb

@@ -126,6 +126,7 @@ Partial Class frmMain
         Me.PATH_ORIGINALTextBox = New System.Windows.Forms.TextBox()
         Me.TBEMLP_POLL_PROCESSBindingSource = New System.Windows.Forms.BindingSource(Me.components)
         Me.btnFBD_ErrorPath = New System.Windows.Forms.Button()
+        Me.Button1 = New System.Windows.Forms.Button()
         Me.btnFBD_DonwloadPath = New System.Windows.Forms.Button()
         Me.txtSubjectExample = New System.Windows.Forms.TextBox()
         Me.Label9 = New System.Windows.Forms.Label()
@@ -139,19 +140,19 @@ Partial Class frmMain
         Me.WM_PATHTextBox = New System.Windows.Forms.TextBox()
         Me.WM_FILE_NAMETextBox = New System.Windows.Forms.TextBox()
         Me.WM_IMPORTCheckBox = New System.Windows.Forms.CheckBox()
+        Me.WM_OBJEKTTYPEComboBox = New System.Windows.Forms.ComboBox()
+        Me.WM_VECTOR_LOGComboBox = New System.Windows.Forms.ComboBox()
+        Me.WM_IDX_BODY_TEXTComboBox = New System.Windows.Forms.ComboBox()
+        Me.WM_IDX_BODY_SUBSTR_LENGTHTextBox = New System.Windows.Forms.TextBox()
         Me.STEP_NAMEComboBox = New System.Windows.Forms.ComboBox()
         Me.PROCESS_NAMEComboBox = New System.Windows.Forms.ComboBox()
         Me.GUIDProcessTextBox = New System.Windows.Forms.TextBox()
         Me.COPY_2_HDDCheckBox = New System.Windows.Forms.CheckBox()
-        Me.WM_OBJEKTTYPEComboBox = New System.Windows.Forms.ComboBox()
-        Me.WM_VECTOR_LOGComboBox = New System.Windows.Forms.ComboBox()
         Me.PATH_EMAIL_TEMPTextBox = New System.Windows.Forms.TextBox()
         Me.PATH_EMAIL_ERRORSTextBox = New System.Windows.Forms.TextBox()
         Me.DELETE_MAILCheckBox = New System.Windows.Forms.CheckBox()
         Me.COMMENT_PROFILESTextBox = New System.Windows.Forms.TextBox()
         Me.ACTIVECheckBox1 = New System.Windows.Forms.CheckBox()
-        Me.WM_IDX_BODY_TEXTComboBox = New System.Windows.Forms.ComboBox()
-        Me.WM_IDX_BODY_SUBSTR_LENGTHTextBox = New System.Windows.Forms.TextBox()
         Me.BindingNavigator2 = New System.Windows.Forms.BindingNavigator(Me.components)
         Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton()
         Me.ToolStripLabel1 = New System.Windows.Forms.ToolStripLabel()
@@ -528,7 +529,7 @@ Partial Class frmMain
         'WM_OBJEKTTYPELabel
         '
         WM_OBJEKTTYPELabel.AutoSize = True
-        WM_OBJEKTTYPELabel.Location = New System.Drawing.Point(316, 65)
+        WM_OBJEKTTYPELabel.Location = New System.Drawing.Point(6, 22)
         WM_OBJEKTTYPELabel.Name = "WM_OBJEKTTYPELabel"
         WM_OBJEKTTYPELabel.Size = New System.Drawing.Size(59, 13)
         WM_OBJEKTTYPELabel.TabIndex = 44
@@ -537,7 +538,7 @@ Partial Class frmMain
         'WM_VECTOR_LOGLabel
         '
         WM_VECTOR_LOGLabel.AutoSize = True
-        WM_VECTOR_LOGLabel.Location = New System.Drawing.Point(316, 108)
+        WM_VECTOR_LOGLabel.Location = New System.Drawing.Point(7, 149)
         WM_VECTOR_LOGLabel.Name = "WM_VECTOR_LOGLabel"
         WM_VECTOR_LOGLabel.Size = New System.Drawing.Size(75, 13)
         WM_VECTOR_LOGLabel.TabIndex = 46
@@ -546,7 +547,7 @@ Partial Class frmMain
         'WM_PATHLabel
         '
         WM_PATHLabel.AutoSize = True
-        WM_PATHLabel.Location = New System.Drawing.Point(6, 21)
+        WM_PATHLabel.Location = New System.Drawing.Point(7, 68)
         WM_PATHLabel.Name = "WM_PATHLabel"
         WM_PATHLabel.Size = New System.Drawing.Size(69, 13)
         WM_PATHLabel.TabIndex = 48
@@ -555,7 +556,7 @@ Partial Class frmMain
         'WM_FILE_NAMELabel
         '
         WM_FILE_NAMELabel.AutoSize = True
-        WM_FILE_NAMELabel.Location = New System.Drawing.Point(6, 61)
+        WM_FILE_NAMELabel.Location = New System.Drawing.Point(7, 108)
         WM_FILE_NAMELabel.Name = "WM_FILE_NAMELabel"
         WM_FILE_NAMELabel.Size = New System.Drawing.Size(97, 13)
         WM_FILE_NAMELabel.TabIndex = 8
@@ -573,7 +574,7 @@ Partial Class frmMain
         'WM_IDX_BODY_TEXTLabel
         '
         WM_IDX_BODY_TEXTLabel.AutoSize = True
-        WM_IDX_BODY_TEXTLabel.Location = New System.Drawing.Point(316, 148)
+        WM_IDX_BODY_TEXTLabel.Location = New System.Drawing.Point(150, 149)
         WM_IDX_BODY_TEXTLabel.Name = "WM_IDX_BODY_TEXTLabel"
         WM_IDX_BODY_TEXTLabel.Size = New System.Drawing.Size(86, 13)
         WM_IDX_BODY_TEXTLabel.TabIndex = 74
@@ -582,11 +583,11 @@ Partial Class frmMain
         'WM_IDX_BODY_SUBSTR_LENGTHLabel
         '
         WM_IDX_BODY_SUBSTR_LENGTHLabel.AutoSize = True
-        WM_IDX_BODY_SUBSTR_LENGTHLabel.Location = New System.Drawing.Point(462, 148)
+        WM_IDX_BODY_SUBSTR_LENGTHLabel.Location = New System.Drawing.Point(274, 148)
         WM_IDX_BODY_SUBSTR_LENGTHLabel.Name = "WM_IDX_BODY_SUBSTR_LENGTHLabel"
-        WM_IDX_BODY_SUBSTR_LENGTHLabel.Size = New System.Drawing.Size(105, 13)
+        WM_IDX_BODY_SUBSTR_LENGTHLabel.Size = New System.Drawing.Size(40, 13)
         WM_IDX_BODY_SUBSTR_LENGTHLabel.TabIndex = 76
-        WM_IDX_BODY_SUBSTR_LENGTHLabel.Text = "Auswertbare Länge:"
+        WM_IDX_BODY_SUBSTR_LENGTHLabel.Text = "Länge:"
         '
         'PROCESS_NAMELabel
         '
@@ -798,7 +799,7 @@ Partial Class frmMain
         'Label7
         '
         Label7.AutoSize = True
-        Label7.Location = New System.Drawing.Point(817, 65)
+        Label7.Location = New System.Drawing.Point(247, 107)
         Label7.Name = "Label7"
         Label7.Size = New System.Drawing.Size(68, 13)
         Label7.TabIndex = 85
@@ -1325,6 +1326,7 @@ Partial Class frmMain
         Me.XtraTabPage1.Controls.Add(Me.lblDownloadPath)
         Me.XtraTabPage1.Controls.Add(Me.PATH_ORIGINALTextBox)
         Me.XtraTabPage1.Controls.Add(Me.btnFBD_ErrorPath)
+        Me.XtraTabPage1.Controls.Add(Me.Button1)
         Me.XtraTabPage1.Controls.Add(Me.btnFBD_DonwloadPath)
         Me.XtraTabPage1.Controls.Add(Me.txtSubjectExample)
         Me.XtraTabPage1.Controls.Add(Me.Label9)
@@ -1347,20 +1349,12 @@ Partial Class frmMain
         Me.XtraTabPage1.Controls.Add(GUIDLabel1)
         Me.XtraTabPage1.Controls.Add(Me.GUIDProcessTextBox)
         Me.XtraTabPage1.Controls.Add(Me.COPY_2_HDDCheckBox)
-        Me.XtraTabPage1.Controls.Add(WM_OBJEKTTYPELabel)
-        Me.XtraTabPage1.Controls.Add(Me.WM_OBJEKTTYPEComboBox)
-        Me.XtraTabPage1.Controls.Add(WM_VECTOR_LOGLabel)
-        Me.XtraTabPage1.Controls.Add(Me.WM_VECTOR_LOGComboBox)
         Me.XtraTabPage1.Controls.Add(Me.PATH_EMAIL_TEMPTextBox)
         Me.XtraTabPage1.Controls.Add(PATH_EMAIL_ERRORSLabel)
         Me.XtraTabPage1.Controls.Add(Me.PATH_EMAIL_ERRORSTextBox)
         Me.XtraTabPage1.Controls.Add(Me.DELETE_MAILCheckBox)
         Me.XtraTabPage1.Controls.Add(Me.COMMENT_PROFILESTextBox)
         Me.XtraTabPage1.Controls.Add(Me.ACTIVECheckBox1)
-        Me.XtraTabPage1.Controls.Add(WM_IDX_BODY_TEXTLabel)
-        Me.XtraTabPage1.Controls.Add(Me.WM_IDX_BODY_TEXTComboBox)
-        Me.XtraTabPage1.Controls.Add(WM_IDX_BODY_SUBSTR_LENGTHLabel)
-        Me.XtraTabPage1.Controls.Add(Me.WM_IDX_BODY_SUBSTR_LENGTHTextBox)
         Me.XtraTabPage1.Controls.Add(Me.BindingNavigator2)
         Me.XtraTabPage1.Controls.Add(Me.GridControl1)
         Me.XtraTabPage1.ImageOptions.AllowGlyphSkinning = DevExpress.Utils.DefaultBoolean.[False]
@@ -1382,9 +1376,9 @@ Partial Class frmMain
         'PATH_ORIGINALTextBox
         '
         Me.PATH_ORIGINALTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBEMLP_POLL_PROCESSBindingSource, "PATH_ORIGINAL", True))
-        Me.PATH_ORIGINALTextBox.Location = New System.Drawing.Point(509, 124)
+        Me.PATH_ORIGINALTextBox.Location = New System.Drawing.Point(319, 164)
         Me.PATH_ORIGINALTextBox.Name = "PATH_ORIGINALTextBox"
-        Me.PATH_ORIGINALTextBox.Size = New System.Drawing.Size(305, 21)
+        Me.PATH_ORIGINALTextBox.Size = New System.Drawing.Size(462, 21)
         Me.PATH_ORIGINALTextBox.TabIndex = 91
         '
         'TBEMLP_POLL_PROCESSBindingSource
@@ -1403,6 +1397,15 @@ Partial Class frmMain
         Me.btnFBD_ErrorPath.Text = "..."
         Me.btnFBD_ErrorPath.UseVisualStyleBackColor = True
         '
+        'Button1
+        '
+        Me.Button1.Location = New System.Drawing.Point(787, 164)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(27, 21)
+        Me.Button1.TabIndex = 89
+        Me.Button1.Text = "..."
+        Me.Button1.UseVisualStyleBackColor = True
+        '
         'btnFBD_DonwloadPath
         '
         Me.btnFBD_DonwloadPath.Location = New System.Drawing.Point(787, 204)
@@ -1417,16 +1420,16 @@ Partial Class frmMain
         Me.txtSubjectExample.BackColor = System.Drawing.SystemColors.Window
         Me.txtSubjectExample.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
         Me.txtSubjectExample.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(0, Byte), Integer))
-        Me.txtSubjectExample.Location = New System.Drawing.Point(820, 39)
+        Me.txtSubjectExample.Location = New System.Drawing.Point(319, 121)
         Me.txtSubjectExample.Name = "txtSubjectExample"
         Me.txtSubjectExample.ReadOnly = True
-        Me.txtSubjectExample.Size = New System.Drawing.Size(304, 21)
+        Me.txtSubjectExample.Size = New System.Drawing.Size(462, 21)
         Me.txtSubjectExample.TabIndex = 88
         '
         'Label9
         '
         Me.Label9.AutoSize = True
-        Me.Label9.Location = New System.Drawing.Point(817, 25)
+        Me.Label9.Location = New System.Drawing.Point(316, 107)
         Me.Label9.Name = "Label9"
         Me.Label9.Size = New System.Drawing.Size(74, 13)
         Me.Label9.TabIndex = 87
@@ -1435,7 +1438,7 @@ Partial Class frmMain
         'NumericUpDown2
         '
         Me.NumericUpDown2.DataBindings.Add(New System.Windows.Forms.Binding("Value", Me.TBEMLP_POLL_PROCESSBindingSource, "SEQUENCE", True))
-        Me.NumericUpDown2.Location = New System.Drawing.Point(820, 82)
+        Me.NumericUpDown2.Location = New System.Drawing.Point(250, 124)
         Me.NumericUpDown2.Maximum = New Decimal(New Integer() {20, 0, 0, 0})
         Me.NumericUpDown2.Name = "NumericUpDown2"
         Me.NumericUpDown2.Size = New System.Drawing.Size(61, 21)
@@ -1488,7 +1491,7 @@ Partial Class frmMain
         'Label5
         '
         Me.Label5.AutoSize = True
-        Me.Label5.Location = New System.Drawing.Point(824, 228)
+        Me.Label5.Location = New System.Drawing.Point(820, 244)
         Me.Label5.Name = "Label5"
         Me.Label5.Size = New System.Drawing.Size(65, 13)
         Me.Label5.TabIndex = 80
@@ -1501,16 +1504,24 @@ Partial Class frmMain
         Me.GroupBox2.Controls.Add(WM_FILE_NAMELabel)
         Me.GroupBox2.Controls.Add(Me.WM_FILE_NAMETextBox)
         Me.GroupBox2.Controls.Add(Me.WM_IMPORTCheckBox)
-        Me.GroupBox2.Location = New System.Drawing.Point(820, 114)
+        Me.GroupBox2.Controls.Add(WM_OBJEKTTYPELabel)
+        Me.GroupBox2.Controls.Add(Me.WM_OBJEKTTYPEComboBox)
+        Me.GroupBox2.Controls.Add(WM_VECTOR_LOGLabel)
+        Me.GroupBox2.Controls.Add(Me.WM_VECTOR_LOGComboBox)
+        Me.GroupBox2.Controls.Add(WM_IDX_BODY_TEXTLabel)
+        Me.GroupBox2.Controls.Add(Me.WM_IDX_BODY_TEXTComboBox)
+        Me.GroupBox2.Controls.Add(Me.WM_IDX_BODY_SUBSTR_LENGTHTextBox)
+        Me.GroupBox2.Controls.Add(WM_IDX_BODY_SUBSTR_LENGTHLabel)
+        Me.GroupBox2.Location = New System.Drawing.Point(820, 39)
         Me.GroupBox2.Name = "GroupBox2"
-        Me.GroupBox2.Size = New System.Drawing.Size(329, 110)
+        Me.GroupBox2.Size = New System.Drawing.Size(329, 202)
         Me.GroupBox2.TabIndex = 79
         Me.GroupBox2.TabStop = False
         '
         'WM_PATHTextBox
         '
         Me.WM_PATHTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBEMLP_POLL_PROCESSBindingSource, "WM_PATH", True))
-        Me.WM_PATHTextBox.Location = New System.Drawing.Point(9, 37)
+        Me.WM_PATHTextBox.Location = New System.Drawing.Point(10, 84)
         Me.WM_PATHTextBox.Name = "WM_PATHTextBox"
         Me.WM_PATHTextBox.Size = New System.Drawing.Size(312, 21)
         Me.WM_PATHTextBox.TabIndex = 7
@@ -1518,7 +1529,7 @@ Partial Class frmMain
         'WM_FILE_NAMETextBox
         '
         Me.WM_FILE_NAMETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBEMLP_POLL_PROCESSBindingSource, "WM_FILE_NAME", True))
-        Me.WM_FILE_NAMETextBox.Location = New System.Drawing.Point(9, 77)
+        Me.WM_FILE_NAMETextBox.Location = New System.Drawing.Point(10, 124)
         Me.WM_FILE_NAMETextBox.Name = "WM_FILE_NAMETextBox"
         Me.WM_FILE_NAMETextBox.Size = New System.Drawing.Size(312, 21)
         Me.WM_FILE_NAMETextBox.TabIndex = 11
@@ -1534,6 +1545,41 @@ Partial Class frmMain
         Me.WM_IMPORTCheckBox.Text = "Windream Import"
         Me.WM_IMPORTCheckBox.UseVisualStyleBackColor = False
         '
+        'WM_OBJEKTTYPEComboBox
+        '
+        Me.WM_OBJEKTTYPEComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBEMLP_POLL_PROCESSBindingSource, "WM_OBJEKTTYPE", True))
+        Me.WM_OBJEKTTYPEComboBox.FormattingEnabled = True
+        Me.WM_OBJEKTTYPEComboBox.Location = New System.Drawing.Point(9, 38)
+        Me.WM_OBJEKTTYPEComboBox.Name = "WM_OBJEKTTYPEComboBox"
+        Me.WM_OBJEKTTYPEComboBox.Size = New System.Drawing.Size(313, 21)
+        Me.WM_OBJEKTTYPEComboBox.TabIndex = 4
+        '
+        'WM_VECTOR_LOGComboBox
+        '
+        Me.WM_VECTOR_LOGComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBEMLP_POLL_PROCESSBindingSource, "WM_VECTOR_LOG", True))
+        Me.WM_VECTOR_LOGComboBox.FormattingEnabled = True
+        Me.WM_VECTOR_LOGComboBox.Location = New System.Drawing.Point(10, 165)
+        Me.WM_VECTOR_LOGComboBox.Name = "WM_VECTOR_LOGComboBox"
+        Me.WM_VECTOR_LOGComboBox.Size = New System.Drawing.Size(137, 21)
+        Me.WM_VECTOR_LOGComboBox.TabIndex = 5
+        '
+        'WM_IDX_BODY_TEXTComboBox
+        '
+        Me.WM_IDX_BODY_TEXTComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBEMLP_POLL_PROCESSBindingSource, "WM_IDX_BODY_TEXT", True))
+        Me.WM_IDX_BODY_TEXTComboBox.FormattingEnabled = True
+        Me.WM_IDX_BODY_TEXTComboBox.Location = New System.Drawing.Point(153, 165)
+        Me.WM_IDX_BODY_TEXTComboBox.Name = "WM_IDX_BODY_TEXTComboBox"
+        Me.WM_IDX_BODY_TEXTComboBox.Size = New System.Drawing.Size(118, 21)
+        Me.WM_IDX_BODY_TEXTComboBox.TabIndex = 7
+        '
+        'WM_IDX_BODY_SUBSTR_LENGTHTextBox
+        '
+        Me.WM_IDX_BODY_SUBSTR_LENGTHTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBEMLP_POLL_PROCESSBindingSource, "WM_IDX_BODY_SUBSTR_LENGTH", True))
+        Me.WM_IDX_BODY_SUBSTR_LENGTHTextBox.Location = New System.Drawing.Point(277, 165)
+        Me.WM_IDX_BODY_SUBSTR_LENGTHTextBox.Name = "WM_IDX_BODY_SUBSTR_LENGTHTextBox"
+        Me.WM_IDX_BODY_SUBSTR_LENGTHTextBox.Size = New System.Drawing.Size(29, 21)
+        Me.WM_IDX_BODY_SUBSTR_LENGTHTextBox.TabIndex = 8
+        '
         'STEP_NAMEComboBox
         '
         Me.STEP_NAMEComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBEMLP_POLL_PROCESSBindingSource, "STEP_NAME", True))
@@ -1559,7 +1605,7 @@ Partial Class frmMain
         Me.GUIDProcessTextBox.BackColor = System.Drawing.SystemColors.InactiveBorder
         Me.GUIDProcessTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBEMLP_POLL_PROCESSBindingSource, "GUID", True))
         Me.GUIDProcessTextBox.Enabled = False
-        Me.GUIDProcessTextBox.Location = New System.Drawing.Point(247, 41)
+        Me.GUIDProcessTextBox.Location = New System.Drawing.Point(251, 42)
         Me.GUIDProcessTextBox.Name = "GUIDProcessTextBox"
         Me.GUIDProcessTextBox.Size = New System.Drawing.Size(51, 21)
         Me.GUIDProcessTextBox.TabIndex = 33
@@ -1568,31 +1614,13 @@ Partial Class frmMain
         'COPY_2_HDDCheckBox
         '
         Me.COPY_2_HDDCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBEMLP_POLL_PROCESSBindingSource, "COPY_2_HDD", True))
-        Me.COPY_2_HDDCheckBox.Location = New System.Drawing.Point(509, 108)
+        Me.COPY_2_HDDCheckBox.Location = New System.Drawing.Point(319, 148)
         Me.COPY_2_HDDCheckBox.Name = "COPY_2_HDDCheckBox"
-        Me.COPY_2_HDDCheckBox.Size = New System.Drawing.Size(118, 17)
+        Me.COPY_2_HDDCheckBox.Size = New System.Drawing.Size(275, 17)
         Me.COPY_2_HDDCheckBox.TabIndex = 6
         Me.COPY_2_HDDCheckBox.Text = "Copy email to HDD"
         Me.COPY_2_HDDCheckBox.UseVisualStyleBackColor = True
         '
-        'WM_OBJEKTTYPEComboBox
-        '
-        Me.WM_OBJEKTTYPEComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBEMLP_POLL_PROCESSBindingSource, "WM_OBJEKTTYPE", True))
-        Me.WM_OBJEKTTYPEComboBox.FormattingEnabled = True
-        Me.WM_OBJEKTTYPEComboBox.Location = New System.Drawing.Point(319, 81)
-        Me.WM_OBJEKTTYPEComboBox.Name = "WM_OBJEKTTYPEComboBox"
-        Me.WM_OBJEKTTYPEComboBox.Size = New System.Drawing.Size(495, 21)
-        Me.WM_OBJEKTTYPEComboBox.TabIndex = 4
-        '
-        'WM_VECTOR_LOGComboBox
-        '
-        Me.WM_VECTOR_LOGComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBEMLP_POLL_PROCESSBindingSource, "WM_VECTOR_LOG", True))
-        Me.WM_VECTOR_LOGComboBox.FormattingEnabled = True
-        Me.WM_VECTOR_LOGComboBox.Location = New System.Drawing.Point(319, 124)
-        Me.WM_VECTOR_LOGComboBox.Name = "WM_VECTOR_LOGComboBox"
-        Me.WM_VECTOR_LOGComboBox.Size = New System.Drawing.Size(175, 21)
-        Me.WM_VECTOR_LOGComboBox.TabIndex = 5
-        '
         'PATH_EMAIL_TEMPTextBox
         '
         Me.PATH_EMAIL_TEMPTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBEMLP_POLL_PROCESSBindingSource, "PATH_EMAIL_TEMP", True))
@@ -1612,49 +1640,33 @@ Partial Class frmMain
         'DELETE_MAILCheckBox
         '
         Me.DELETE_MAILCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBEMLP_POLL_PROCESSBindingSource, "DELETE_MAIL", True))
-        Me.DELETE_MAILCheckBox.Location = New System.Drawing.Point(636, 39)
+        Me.DELETE_MAILCheckBox.Location = New System.Drawing.Point(319, 75)
         Me.DELETE_MAILCheckBox.Name = "DELETE_MAILCheckBox"
-        Me.DELETE_MAILCheckBox.Size = New System.Drawing.Size(158, 24)
+        Me.DELETE_MAILCheckBox.Size = New System.Drawing.Size(468, 24)
         Me.DELETE_MAILCheckBox.TabIndex = 2
-        Me.DELETE_MAILCheckBox.Text = "Delete Mail after success"
+        Me.DELETE_MAILCheckBox.Text = "Email nach Verarbeitung löschen (Andernfalls muss ein IMAP Ordner 'Verarbeitet' e" &
+    "xistieren)"
         Me.DELETE_MAILCheckBox.UseVisualStyleBackColor = True
         '
         'COMMENT_PROFILESTextBox
         '
         Me.COMMENT_PROFILESTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBEMLP_POLL_PROCESSBindingSource, "COMMENT", True))
-        Me.COMMENT_PROFILESTextBox.Location = New System.Drawing.Point(820, 244)
+        Me.COMMENT_PROFILESTextBox.Location = New System.Drawing.Point(822, 260)
         Me.COMMENT_PROFILESTextBox.Multiline = True
         Me.COMMENT_PROFILESTextBox.Name = "COMMENT_PROFILESTextBox"
-        Me.COMMENT_PROFILESTextBox.Size = New System.Drawing.Size(329, 61)
+        Me.COMMENT_PROFILESTextBox.Size = New System.Drawing.Size(327, 45)
         Me.COMMENT_PROFILESTextBox.TabIndex = 10
         '
         'ACTIVECheckBox1
         '
         Me.ACTIVECheckBox1.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBEMLP_POLL_PROCESSBindingSource, "ACTIVE", True))
-        Me.ACTIVECheckBox1.Location = New System.Drawing.Point(247, 78)
+        Me.ACTIVECheckBox1.Location = New System.Drawing.Point(251, 78)
         Me.ACTIVECheckBox1.Name = "ACTIVECheckBox1"
-        Me.ACTIVECheckBox1.Size = New System.Drawing.Size(66, 24)
+        Me.ACTIVECheckBox1.Size = New System.Drawing.Size(60, 24)
         Me.ACTIVECheckBox1.TabIndex = 3
         Me.ACTIVECheckBox1.Text = "Active"
         Me.ACTIVECheckBox1.UseVisualStyleBackColor = True
         '
-        'WM_IDX_BODY_TEXTComboBox
-        '
-        Me.WM_IDX_BODY_TEXTComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBEMLP_POLL_PROCESSBindingSource, "WM_IDX_BODY_TEXT", True))
-        Me.WM_IDX_BODY_TEXTComboBox.FormattingEnabled = True
-        Me.WM_IDX_BODY_TEXTComboBox.Location = New System.Drawing.Point(319, 164)
-        Me.WM_IDX_BODY_TEXTComboBox.Name = "WM_IDX_BODY_TEXTComboBox"
-        Me.WM_IDX_BODY_TEXTComboBox.Size = New System.Drawing.Size(138, 21)
-        Me.WM_IDX_BODY_TEXTComboBox.TabIndex = 7
-        '
-        'WM_IDX_BODY_SUBSTR_LENGTHTextBox
-        '
-        Me.WM_IDX_BODY_SUBSTR_LENGTHTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBEMLP_POLL_PROCESSBindingSource, "WM_IDX_BODY_SUBSTR_LENGTH", True))
-        Me.WM_IDX_BODY_SUBSTR_LENGTHTextBox.Location = New System.Drawing.Point(465, 164)
-        Me.WM_IDX_BODY_SUBSTR_LENGTHTextBox.Name = "WM_IDX_BODY_SUBSTR_LENGTHTextBox"
-        Me.WM_IDX_BODY_SUBSTR_LENGTHTextBox.Size = New System.Drawing.Size(29, 21)
-        Me.WM_IDX_BODY_SUBSTR_LENGTHTextBox.TabIndex = 8
-        '
         'BindingNavigator2
         '
         Me.BindingNavigator2.AddNewItem = Me.ToolStripButton2
@@ -3689,4 +3701,5 @@ Partial Class frmMain
     Friend WithEvents ARCHIVE_FOLDERLabel As Label
     Friend WithEvents btnValidationSQL As DevExpress.XtraEditors.SimpleButton
     Friend WithEvents txtSQLValidation As DevExpress.XtraEditors.TextEdit
+    Friend WithEvents Button1 As Button
 End Class

App/EmailProfiler.Form/frmMain.resx

@@ -365,6 +365,9 @@
   <metadata name="TBEMLP_POLL_PROCESSBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>17, 95</value>
   </metadata>
+  <metadata name="TBEMLP_POLL_PROCESSBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 95</value>
+  </metadata>
   <metadata name="BindingNavigator2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>1139, 56</value>
   </metadata>
@@ -457,6 +460,70 @@
         LDIwLDE2LDIweiIgY2xhc3M9IkJsdWUiIC8+DQogIDwvZz4NCjwvc3ZnPgs=
 </value>
   </data>
+  <metadata name="BindingNavigator3.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>1021, 95</value>
+  </metadata>
+  <data name="XtraTabPage2.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
+        LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
+        dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAOYCAAAC77u/
+        PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
+        IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
+        MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
+        Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
+        MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlJlZHtmaWxsOiNEMTFDMUM7fQoJLlll
+        bGxvd3tmaWxsOiNGRkIxMTU7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5HcmVlbntmaWxsOiMwMzlD
+        MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
+        Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQoJLnN0MntvcGFjaXR5OjAuMzU7fQoJLnN0M3tv
+        cGFjaXR5OjAuNjU7fQo8L3N0eWxlPg0KICA8ZyBpZD0iRnVubmVsIj4NCiAgICA8cmVjdCB4PSIxMiIg
+        eT0iMjIiIHdpZHRoPSI2IiBoZWlnaHQ9IjgiIHJ4PSIwIiByeT0iMCIgY2xhc3M9IkJsdWUiIC8+DQog
+        ICAgPHBvbHlnb24gcG9pbnRzPSIxMiwyMCA0LDEyIDI2LDEyIDE4LDIwICAiIGNsYXNzPSJZZWxsb3ci
+        IC8+DQogICAgPHBvbHlnb24gcG9pbnRzPSI0LDEwIDAsMiAzMCwyIDI2LDEwICAiIGNsYXNzPSJSZWQi
+        IC8+DQogIDwvZz4NCjwvc3ZnPgs=
+</value>
+  </data>
+  <metadata name="BindingNavigator4.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>1175, 95</value>
+  </metadata>
+  <data name="XtraTabPage3.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
+        LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
+        dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAGYEAAAC77u/
+        PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
+        IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
+        MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
+        Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
+        MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z
+        ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5SZWR7ZmlsbDojRDExQzFDO30KCS5HcmVlbntmaWxsOiMwMzlD
+        MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
+        Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQoJLnN0MntkaXNwbGF5Om5vbmU7fQoJLnN0M3tk
+        aXNwbGF5OmlubGluZTtmaWxsOiNGRkIxMTU7fQoJLnN0NHtkaXNwbGF5OmlubGluZTt9Cgkuc3Q1e2Rp
+        c3BsYXk6aW5saW5lO29wYWNpdHk6MC43NTt9Cgkuc3Q2e2Rpc3BsYXk6aW5saW5lO29wYWNpdHk6MC41
+        O30KCS5zdDd7ZGlzcGxheTppbmxpbmU7ZmlsbDojMDM5QzIzO30KCS5zdDh7ZGlzcGxheTppbmxpbmU7
+        ZmlsbDojRDExQzFDO30KCS5zdDl7ZGlzcGxheTppbmxpbmU7ZmlsbDojMTE3N0Q3O30KCS5zdDEwe2Rp
+        c3BsYXk6aW5saW5lO2ZpbGw6I0ZGRkZGRjt9Cjwvc3R5bGU+DQogIDxnIGlkPSJEb2N1bWVudF8xXyI+
+        DQogICAgPHBhdGggZD0iTTE1LDIwbDktOWw1LDVsLTksOUwxNSwyMHogTTMxLjcsMTEuOWwtMy42LTMu
+        NmMtMC40LTAuNC0xLTAuNC0xLjQsMEwyNSwxMGw1LDVsMS43LTEuNyAgIEMzMi4xLDEyLjksMzIuMSwx
+        Mi4zLDMxLjcsMTEuOXogTTE0LDI2aDVsLTUtNVYyNnoiIGNsYXNzPSJCbHVlIiAvPg0KICAgIDxwYXRo
+        IGQ9Ik0yNCwyMy44VjI4aC00LjJIMTJINlY0aDE4djQuMmwyLTJWM2MwLTAuNS0wLjUtMS0xLTFINUM0
+        LjQsMiw0LDIuNSw0LDN2MjZjMCwwLjUsMC41LDEsMSwxaDIwICAgYzAuNSwwLDEtMC41LDEtMXYtNy4y
+        TDI0LDIzLjh6IiBjbGFzcz0iQmxhY2siIC8+DQogIDwvZz4NCjwvc3ZnPgs=
+</value>
+  </data>
+  <metadata name="BindingNavigator6.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>851, 173</value>
+  </metadata>
+  <metadata name="MyDataset.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>180, 56</value>
+  </metadata>
+  <metadata name="TBDD_EMAIL_ACCOUNTBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>623, 134</value>
+  </metadata>
+  <metadata name="TBEMLP_POLL_STEPSBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>537, 95</value>
+  </metadata>
   <metadata name="TBEMLP_POLL_STEPSBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>537, 95</value>
   </metadata>
@@ -527,26 +594,9 @@
         8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg==
 </value>
   </data>
-  <data name="XtraTabPage2.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
+  <metadata name="TBEMLP_POLL_INDEXING_STEPSBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>
+    <value>17, 134</value>
-        AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
+  </metadata>
-        LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
-        dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAOYCAAAC77u/
-        PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
-        IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
-        MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
-        Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
-        MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlJlZHtmaWxsOiNEMTFDMUM7fQoJLlll
-        bGxvd3tmaWxsOiNGRkIxMTU7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5HcmVlbntmaWxsOiMwMzlD
-        MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
-        Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQoJLnN0MntvcGFjaXR5OjAuMzU7fQoJLnN0M3tv
-        cGFjaXR5OjAuNjU7fQo8L3N0eWxlPg0KICA8ZyBpZD0iRnVubmVsIj4NCiAgICA8cmVjdCB4PSIxMiIg
-        eT0iMjIiIHdpZHRoPSI2IiBoZWlnaHQ9IjgiIHJ4PSIwIiByeT0iMCIgY2xhc3M9IkJsdWUiIC8+DQog
-        ICAgPHBvbHlnb24gcG9pbnRzPSIxMiwyMCA0LDEyIDI2LDEyIDE4LDIwICAiIGNsYXNzPSJZZWxsb3ci
-        IC8+DQogICAgPHBvbHlnb24gcG9pbnRzPSI0LDEwIDAsMiAzMCwyIDI2LDEwICAiIGNsYXNzPSJSZWQi
-        IC8+DQogIDwvZz4NCjwvc3ZnPgs=
-</value>
-  </data>
   <metadata name="TBEMLP_POLL_INDEXING_STEPSBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>17, 134</value>
   </metadata>
@@ -615,32 +665,6 @@
         kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG
         WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9
         8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg==
-</value>
-  </data>
-  <data name="XtraTabPage3.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
-        LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
-        dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAGYEAAAC77u/
-        PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
-        IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
-        MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
-        Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
-        MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z
-        ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5SZWR7ZmlsbDojRDExQzFDO30KCS5HcmVlbntmaWxsOiMwMzlD
-        MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
-        Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQoJLnN0MntkaXNwbGF5Om5vbmU7fQoJLnN0M3tk
-        aXNwbGF5OmlubGluZTtmaWxsOiNGRkIxMTU7fQoJLnN0NHtkaXNwbGF5OmlubGluZTt9Cgkuc3Q1e2Rp
-        c3BsYXk6aW5saW5lO29wYWNpdHk6MC43NTt9Cgkuc3Q2e2Rpc3BsYXk6aW5saW5lO29wYWNpdHk6MC41
-        O30KCS5zdDd7ZGlzcGxheTppbmxpbmU7ZmlsbDojMDM5QzIzO30KCS5zdDh7ZGlzcGxheTppbmxpbmU7
-        ZmlsbDojRDExQzFDO30KCS5zdDl7ZGlzcGxheTppbmxpbmU7ZmlsbDojMTE3N0Q3O30KCS5zdDEwe2Rp
-        c3BsYXk6aW5saW5lO2ZpbGw6I0ZGRkZGRjt9Cjwvc3R5bGU+DQogIDxnIGlkPSJEb2N1bWVudF8xXyI+
-        DQogICAgPHBhdGggZD0iTTE1LDIwbDktOWw1LDVsLTksOUwxNSwyMHogTTMxLjcsMTEuOWwtMy42LTMu
-        NmMtMC40LTAuNC0xLTAuNC0xLjQsMEwyNSwxMGw1LDVsMS43LTEuNyAgIEMzMi4xLDEyLjksMzIuMSwx
-        Mi4zLDMxLjcsMTEuOXogTTE0LDI2aDVsLTUtNVYyNnoiIGNsYXNzPSJCbHVlIiAvPg0KICAgIDxwYXRo
-        IGQ9Ik0yNCwyMy44VjI4aC00LjJIMTJINlY0aDE4djQuMmwyLTJWM2MwLTAuNS0wLjUtMS0xLTFINUM0
-        LjQsMiw0LDIuNSw0LDN2MjZjMCwwLjUsMC41LDEsMSwxaDIwICAgYzAuNSwwLDEtMC41LDEtMXYtNy4y
-        TDI0LDIzLjh6IiBjbGFzcz0iQmxhY2siIC8+DQogIDwvZz4NCjwvc3ZnPgs=
 </value>
   </data>
   <metadata name="ContextMenuStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
@@ -716,6 +740,9 @@
   <metadata name="TBEMLP_CONFIGBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>239, 173</value>
   </metadata>
+  <metadata name="TBEMLP_CONFIGBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>239, 173</value>
+  </metadata>
   <metadata name="TBEMLP_HISTORYBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>1297, 134</value>
   </metadata>

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