AppStd/EmailProfiler
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

Browse Source
This commit is contained in:
Jonathan Jenne
2023-11-21 16:28:25 +01:00
parent b4cf442c89
commit 1c07b9b507
4 changed files with 203 additions and 131 deletions
Download Patch File Download Diff File Expand all files Collapse all files

42
App/EmailProfiler.Common/clsWorker.vb
View File

@@ -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 IsNothing(Fetcher.Client) Then
Logger.Warn("EMAIL_DELETE - CURRENT_ImapObject is nothing")
End If
If MESSAGE_ERROR = True Then
Logger.Warn("Did not delete or move Message with UID [{0}] as there was an MessageError!", pMailId)
Return
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
Logger.Warn("Did not delete Message with UID [{0}] as there was an MessageError!", pMailId)
If TestImapFolderExists(SUCCESS_IMAP_FOLDER) Then
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

167
App/EmailProfiler.Form/frmMain.Designer.vb generated
View File

@@ -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

119
App/EmailProfiler.Form/frmMain.resx
View File

@@ -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">
<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="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>
<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>

6
App/EmailProfiler.Form/frmMain.vb
View File

@@ -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